Fórum Copy com Pos #405028

  StringReplace(Copy(Nome do Arquivo,14,5),'-','',[rfReplaceAll]));

function RetornaPos(texto, caracter: String; posicao: Byte);var  i, contagem: Byte;begin  Result := 0;  contagem := 0;  for i := 0 to Length(texto) do  begin     if texto[i] = caracter then       if posicao = contagem then       begin         Result := i;         Break;       end       else         Inc(contagem);     end;end;

procedure BotaoClick(Sender: TObject);var  i: Integer;  txt: String; begin  with OpenDialog1 do  begin    Execute;    for i := 0 to Files.Count -1 do    begin      txt := ExtractFileName(Files[i]);      {aqui eu coloquei o ShowMessage só pra efeito de debug, mas vc pode capturar a string gerada e criar a pasta com CreateDir a partir dela}      ShowMessage(Copy(txt,RetornaPos(txt,'-',1) + 1,(RetornaPos(txt,'-',2) - RetornaPos(txt,'-',1)) -1));    end;   end;end;

var
  TS: TStrings;
begin
  TS:= TStringList.Create;
  try
    TS.Delimiter:= '-';
    TS.DelimitedText:= NomArch;
    Result:= TS[3];
  finally
    TS.Free;
  end;
end;