![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
![]() como puedo contar caracteres de un memo y pasarlos a un label o algo por el estilo.
![]() ![]() ![]() ![]() ![]() ![]() |
#2
|
||||
|
||||
por ejemplo
Código:
procedure TForm1.Memo1KeyUp(Sender: TObject; var Key: Word; Shift:TShiftState); begin label1.caption := inttostr(length(memo1.Text)) end; |
![]() |
|
|
![]() |
|