Hola amigos,
Tengo un pequeño problema al contar las letras dentro de un memo.
Tengo dos alternativas, una simple y otra menos ortodoxa.
Código Delphi
[-]procedure TForm1.Memo1Change(Sender: TObject);
begin
StaticText1.Caption := inttostr(Length(Memo1.Lines.Text));
end;
Código Delphi
[-]procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Case Key of
8,46 : begin
If Letras > 0 then begin
Letras := Letras-1;
StaticText1.Caption := inttostr(Letras);
end;
end;
else begin
case Key of
13,16,20,35,36,37,38,39,40 : begin
end;
else begin
Letras := Letras+1;
StaticText1.Caption := inttostr(Letras);
end;
end;
end;
end;
end;
Mi problema existencial es que no quiero que cuente los enter en el memo solo las letras, numeros y espacios.
En la primera opcion que es la simple me cuenta los enter para sumar o para restar
En la segunda opcion no me suma los enter pero si los resta.
¿Hay algo que pueda hacer para que no me cuente los Enter?
Gracias anticipadas.