ayuda con contar caracteres en delphi (length)

[bothy]

tengo dos edit y un boton y una label
quisiera saver con es la linea de codigo que puedo poner para que el boton cuente cuantos caracteres meto en los dos edit y me salga el resultado en la label...

[dec]

Hola,

Algo muy parecido a esto:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := IntToStr( StrLen( Edit1.Text) + StrLen( Edit2.Text ) );
end;

P.D. Eso es tanto en Delphi como en Free Pascal o Lazarus...

[bothy]

el codigo
Label1.Caption := IntToStr( StrLen( Edit1.Text) + StrLen( Edit2.Text ) );
no me funciona noce porke .. tengo delphi 2009

[dec]

Hola,

Empezado por bothy

el codigo
Label1.Caption := IntToStr( StrLen( Edit1.Text) + StrLen( Edit2.Text ) );
no me funciona noce porke .. tengo delphi 2009

Si no funciona algo debe ocurrir, como algún error a la hora de compilar. ¿Qué error? Eso es lo que deberías poder decir aquí para mejor ayudarte. Por lo demás, moveré este hilo a "varios", puesto que no se trata de Lazarus, Kylix, etc.

Dicho esto, he probado el código (que escribí "de memoria") y he podido ver que el error es este:

[DCC Error] Unit2.pas(31): E2250 There is no overloaded version of 'StrLen' that can be called with these arguments

Esto es porque "StrLen()" espera un "PChar" y no un "String", así que una posible solución podría ser:

Código Delphi [-]
procedure TForm2.Button1Click(Sender: TObject);
begin
  Label1.Caption := IntToStr( StrLen( PChar(Edit1.Text) ) + StrLen( PChar(Edit2.Text) ) );
end;

[Casimiro Notevi]

También puedes usar length

procedure TForm2.Button1Click(Sender: TObject);
begin
  Label1.Caption := IntToStr( Length(Edit1.Text)+Length(Edit2.Text) );
end;

[bothy]

muchas grasias si me sirvio el codigo de los dos ... son principiante en delphi pero aqui aprendere mucho ... buen foro club delphi grasias....