(Resolvido) urgente! exibir total de linha de um tmemo ne um label

[death_shade666]

por favor estou a semanas pesquisando e não acho isso ... sou novato no delphi e presciso exibir o total de linha do componente tmemo q tenho no meu sistema ..... em um label

como faço isso????

[Milton Carlos]

por favor estou a semanas pesquisando e não acho isso ... sou novato no delphi e presciso exibir o total de linha do componente tmemo q tenho no meu sistema ..... em um label

como faço isso????

ola veja se isto resolve pra você ok... abraços

procedure TForm1.Button1Click(Sender: TObject);

var

linhax:string;

lincontax,linx,componentex,textlenx:integer;

begin

memo1.Lines;

lincontax:=memo1.Lines.Count;

textlenx:=memo1.GetTextLen;

componentex:=memo1.ComponentCount;

label1.Caption:=inttostr(lincontax);

showmessage('o nomero de linha é...: '+inttostr(lincontax));

end;

[death_shade666]

mtooo obrigado deu certinhooo ...

=D