(Resolvido) Como contar caracteres restantes de um memo?

[maxm.ro]

como poderia contar os caracteres que o usuario ainda pode digitar em um memo???

ex:

limite: 100 caracteres.

restante: 50 caracteres.

tentei usar o lenght mas não consegui...

alguma dica??

[Churc]

Opa

Voce pode fazer da seguinte forma, usando o evento OnChange do Memo

const
  MAX_TEXT = 250;

procedure TForm1.Create(Sender: TObject);
begin
  Memo1.MaxLength := MAX_TEXT;
end;

procedure TForm1.Memo1Change(Sender: TObject);
begin
  Label1.Caption := 'Caracteres restantes: ' + IntToStr(MAX_TEXT - Length(Memo1.Text));
end;

visualmente, é a mesma forma que sites fazem quando limitam o texto a ser enviado em formulários

abraço

[maxm.ro]

blza, é isso mesmo! muito obrigado !!

agora gostaria de uma ajuda, sobre outro tópico que postei (Problemas com formulario).

link p/ o tópico: http://scriptbrasil.com.br/forum/index.php?showtopic=117838

isse problema ta me atrapalhando demais, se alguém tivesse uma solução seria uma mão na roda!! pois já tentei de varias formas e ainda não encontrei a solução p/ o mesmo!

vlw abraços!!!