Contando letras e linhas no Memo.

Question

QUAL SERIA O CODIGO PARA MOSTRAR NUM LABEL O NUMERO DE LETARS Q ESCREVO OU APAGO NUM MEMO? NO MESMO CODIGO CONTASSE O NUMERO TOTAL DE LINHAS..AGRADE�ONELSON  :o[i:8f134c5131]T�tulo em mai�sculas edita...

Dhiogo · Accepted Answer

Label1.Caption:= Memo1.Lines.Count; {Linhas do memo}Label2.Caption:=inttostr(Length(memo1.Lines.text)); {Numero de Letras}...

Ljr · Answer

Contar as linhas � f�cil[code:1:5deea2acc7]Label1.Caption:= Memo1.Lines.Count;[/code:1:5deea2acc7]...

Ljr · Answer

Complementando a resposta de nosso cologa, coloquei o que ele nos sugeriu no evento Change do Memo e ficou beleza.

procedure TForm1.Memo1Change(Sender: TObject);
begin
  Label1.Caption:= IntToStr(Memo1.Lines.Count);
  Label2.Caption:= IntToStr(length(Memo1.Lines.Text));
end;

Cebikyn · Answer

Complementando as duas respostas anteriores:

O c�digo [b:b4cac3e3f7]length(Memo1.Lines.Text)[/b:b4cac3e3f7] conta cada mudan�a de linha como sendo um caractere, para evitar isso, deve-se usar:
[b:b4cac3e3f7]length(Trim(Memo1.Lines.Text))[/b:b4cac3e3f7]

F�rum Contando letras e linhas no Memo. #185241