Un copy con pos, pero de tras hacia adelante

[ecfisa]

Hola Paulao.

Si siempre respeta ese formato, esta función te va a devolver la cadena buscada:

Código Delphi [-]
uses StrUtils;

function ExtraerCad(Cad: string): string;
var
  i: Integer;
begin
  Result:= '';
  i:= Length(Cad);
  while Cad[i] <> '-' do
  begin
    Result:= Result + Cad[i];
    Dec(i);
  end;
  Result:= ReverseString(Result);
  Result:= Copy(Result,1,Pos('.',Result)-1);
end;

Aunque no es precisamente 'elegante'...

Ejemplo de llamada:

Código Delphi [-]
var
  s1,s2,s3: string;
begin
  s1:= '19900711-35399--NAC-001-CADE.TIF';
  s2:= '19900711-35399--NAC-001-NOT.TIF';
  s3:= '19900711-35399--NAC-002-AGRI.TIF';
  ShowMessage(ExtraerCad(s1)+ #13 +ExtraerCad(s2)+ #13 +ExtraerCad(s3));
end;

Saludos.

[Paulao]

Gracias, Cris.

[ecfisa]

Empezado por Paulao

Gracias, Cris.

Aunque es todo un honor que me hayas confundido con Chris, soy ecfisa.

Saludos.

[[Chris]]

Empezado por ecfisa

Aunque es todo un honor que me hayas confundido con Chris, soy ecfisa.

Saludos.

No al contrario. El honor es todo mío eficsa. No soy capaz de escribir tan geniales códigos como los que nos compartes siempre. Yo por mi parte hubiera recomendado utilzar la función ReverseString, que es la que utilizo para resolver problemas igual al que tiene el compañero. Pero creeme que jamás se me hubiera ocurrido escribir algo así como lo que nos presentas.

Saludos,
Chris