Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   ayuda con contar caracteres en delphi (length) (https://www.clubdelphi.com/foros/showthread.php?t=65835)

bothy 16-01-2010 02:04:27

ayuda con contar caracteres en delphi (length)
 
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 16-01-2010 02:50:15

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 16-01-2010 07:25:57

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

dec 16-01-2010 17:43:14

Hola,

Cita:

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:

Cita:

[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 16-01-2010 19:16:16

También puedes usar length

Código:

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


bothy 16-01-2010 19:30:44

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

juan1987 24-09-2011 18:55:29

Hola, he probado hacer lo que ustedes indican, pero no me funciona. ¿Es posible que sea por la versión?
Un saludo.

Al González 24-09-2011 18:58:26

Cita:

Empezado por juan1987 (Mensaje 413342)
Hola, he probado hacer lo que ustedes indican, pero no me funciona. ¿Es posible que sea por la versión?
Un saludo.

Depende de cuál sea el problema. ;)

juan1987 24-09-2011 18:59:17

Perdón, olvidé decir que tengo Delphi 2009.

Al González 24-09-2011 19:02:50

Cita:

Empezado por juan1987 (Mensaje 413344)
Perdón, olvidé decir que tengo Delphi 2009.

Ponte en mi lugar, ¿te bastaría la información que has dado? :)

No temas describir con lujo de detalle qué pasa en tu pantalla, ten piedad de nosotros. Cada mensaje puede tener más de 140 caracteres, de hecho puedes escribir cientos o hasta miles de palabras en cada post.

Y entre más claro y explícito, post mejor. :p

Casimiro Notevi 24-09-2011 20:38:19

uan1987, haz caso a Al González, que él de esto sabe mucho, contesta su pregunta ;)

juan1987 24-09-2011 20:47:08

Hola, perdón por la demora, pero ya he solucionado el problema. Mejor no les digo lo que estaba haciendo, jajaja. Estaba haciendo todo al revés.
Muchas gracias por su tiempo.
Saludos,
Juan
PD:Casimiro, tú eres el moderador, ¿no? ¿No sabes por qué no parece mi firma?


La franja horaria es GMT +2. Ahora son las 12:04:33.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi