Hola gdIrinfo.
Cita:
Empezado por gdlrinfo
Hola amigos tengo la siguiente duda a ver si me pueden dar una mano:
Necesito recorrer una cadena como esta "BBBB-C0000754T20130517" (puede variar el tamaño) y que cuando llegue a "T" me copie los siguientes 8 caracteres
...
|
Si queres extraer los ocho caracteres siguientes a la primera ocurrencia de la letra 'T'/'t', otra opción es:
Código Delphi
[-]
function EightAfterT(const cad: string): string;
begin
Result:= Copy(UpperCase(cad), Pos('T', UpperCase(cad))+1, 8);
end;
Llamada ej.:
Código Delphi
[-]
ShowMessage(EightAfterT('BBBB-C0000754T20130517'));
Saludos