Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Extraer caracteres de una cadena (https://www.clubdelphi.com/foros/showthread.php?t=18588)

MiLLeNPuNk 17-02-2005 08:44:14

Extraer caracteres de una cadena
 
Es muy simple, no logro encontrar por ninguna parte el equivalente para Delphi de VB: left(cadena, 3)

Para extraer los 3 primeros caracteres de una cadena, gracias por vuestra ayuda.

MasterXP 17-02-2005 09:03:41

has probado con:

Cita:

Length(MyString);
Salu2.

animal 17-02-2005 09:05:37

Q tal, lo q necesitas lo podes hacer de varias formas.

Podes usa "Copy" q copia una subcadena de una cadena
o con "StrMove" q copia caracteres de una cadena a otra.

Espero que te sirva

MiLLeNPuNk 17-02-2005 10:07:23

No me sirven, o soy demasiado tonto para usarlas... el strmove tiene buena pinta, la sintaxis creo que seria
...
var
cod:string;
begin
...
StrMove(cod, cagrupo.text; 3);
...

pero me da errores de tipos imcompatibles String con pchar y tcaption con pchar que no se solucionar. u.U

Lepe 17-02-2005 10:09:34

Código Delphi [-]
uses strUtils;

begin
   str := leftstr(str,3);

Saludos

Lepe 17-02-2005 10:30:50

Si tu version de delphi no las tiene, puedes crearlas tu y ponerlas en una unidad aparte:

Código Delphi [-]
function RightStr(const s:string;const count:integer):String;
begin
   Result := Copy(s, Length(s)+1- count, count);
end;

Como está basado en la función Copy, no produce error, si vas a copiar más caracteres de los que hay, simplemente copia los que se permite.

MiLLeNPuNk 17-02-2005 12:13:13

Muchas gracias Lepe, asi es :), gracias a todos los demas tb por ayudarme, gl a todos ;)

mematanlimon 19-05-2010 21:37:25

agrego una duda
 
como seria esta sentencia para Lazarus???


La franja horaria es GMT +2. Ahora son las 06:27:43.

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