Copy con Pos

[Paulao]

Mira, tengo un archivo con este formato:

19991107-111-0500-NOT.tif
19991107-111-0560-CLASS.tif
20002501-5897-0001-AGRI.tif
20002201-0002-A200-NOT.tif

Bueno, necesito criar una carpeta para cada Archivo, pero el nombre de la carpeta tine que ser la String que estas despues del segundo "-"(Hifen, en español?). Que pasa que un copy simples no es posible, pues como he mustrado, esta string es variable, podendo tener vários tamaños, pero una cosa no cambia, lo posicion despues del segundo "-" y antes del tercer. Esto sera siempre. Como hogo entonces?

[ecfisa]

Hola Paulao.

Si no te entiendo mal, esta función te va a devolver la cadena que buscas:

Código Delphi [-]
function NombreCarpeta(NomArch: string): string;
var
  TS: TStrings;
begin
  TS:= TStringList.Create;
  try
    TS.Delimiter:= '-';
    TS.DelimitedText:= NomArch;
    Result:= TS[2];
  finally
    TS.Free;
  end;
end;

Saludos.