Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   buscar la última posicion de un carácter de una cadena (https://www.clubdelphi.com/foros/showthread.php?t=68464)

atrus 15-06-2010 15:21:52

buscar la última posicion de un carácter de una cadena
 
Hola, tengo un arra con un código o a veces más i cada uno de ellos separados por un guión y en última posición hay una fecha, que tengo que extraer, ejemplo:

225432 - 4445678 - 22/10/2010

la pregunta és como podria tener la posición del último guion para poder extraer la fecha?

Gracias.

cloayza 15-06-2010 16:24:35

Esta funcion te podria ser de utilidad:

SysUtils.LastDelimiter(const Delimiters: string; const S: string): Integer;

Código Delphi [-]
Var
    s:String;
    f:string;
begin
        s:='225432 - 4445678 - 22/10/2010';
       f:=Copy(s,SysUtils.LastDelimiter('-',s)+1,Length(s));
       showmessage(f);
end;

Saludos...

elarys 15-06-2010 20:04:18

La cadena la puedes pasar a string? la parte de la fecha siempre es igual?
Lo que quiero decir que la fecha es siempre igual 2 digitos para dia, 2 para mes, y 4 para año, separado por / que son 2
225432 - 4445678 - 22/10/2010

si la fecha tiene ese formato siempre (osea siempre son los ultimos 10 caracteres) puedes usar

function RightStr(const AString: AnsiString; const Count: Integer): AnsiString;

Resultado := RightStr(cadena, 10);
o
Resultado := RightStr('225432 - 4445678 - 22/10/2010', 10);

esto te dara como resultado 22/10/2010


La franja horaria es GMT +2. Ahora son las 17:53:17.

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