5 respuestas en este tema

[Koalasoft]

Estimados ..

 

Cómo sería la forma de poder extraer de un componente TEdit los últimos 5 caracteres o letras que estén dentro de este. Por ejemplo, en Edit1 tiene un valor..

php

Edit1.text:='E3045MBLT';

Quiero que en e Edit2 muestre los últimos 5 letras del Edit1 osea "5MBLT", busque en el foro y no encontré algo.

 

Gracias !! .. 

[Delphius]

Para eso tienes la función Copy() que te permite copiar parcial o enteramente un string. Simplemente le indicas que copie desde la posición longitud del texto - 5 hasta el final. Revisa la ayuda y busca en los foros por Copy() encontrarás muchos ejemplos.

 

Saludos,

[Koalasoft]

Intenté con esto ...

php

Edit3.Text := Copy(Edit2.Text, -5, Length(Edit2.Text));

Pero me copia lo mismo que tengo en el Edit2.

[Fenareth]

Intenté con esto ...

php

Edit3.Text := Copy(Edit2.Text, -5, Length(Edit2.Text));

Pero me copia lo mismo que tengo en el Edit2.

 

Amigo creo que no comprendiste el uso del segundo parámetro de la función Copy. Éste te pregunta desde qué caracter iniciará la copia. Si tu le colocas un -5 directamente, le estás indicando que comience desde la posición -5 y no es lo que necesitas.

 

Tu necesitas que te copie desde la posición final de tu cadena (que obtienes con la función Length) -5, que no es lo mismo que indicar el -5 directamente.

 

Saludox !  

[Agustin Ortu]

Revisa la documentacion de la funcion Copy

[Koalasoft]

Amigo creo que no comprendiste el uso del segundo parámetro de la función Copy. Éste te pregunta desde qué caracter iniciará la copia. Si tu le colocas un -5 directamente, le estás indicando que comience desde la posición -5 y no es lo que necesitas.

 

Tu necesitas que te copie desde la posición final de tu cadena (que obtienes con la función Length) -5, que no es lo mismo que indicar el -5 directamente.

 

Saludox !

 

ya quedo ...

php

Edit3.Text := Copy(Edit2.Text, Length(Edit2.Text)-5, Length(Edit2.Text));

No había entendido la lógica, mucha gracias !! 

 

Saludos a estimados!! ...