Fórum Como usar um delimiter específico, importação de nomes? #606525

//SST_Pedaco - Devolve o conteudo de um pedaço de uma string delimitada por uma
//             substring delimitadora.
//Parâmetros:
//             source - String da qual será extraído o resultado.
//             Del    - String delimitadora. Essa string, ou caracter que é mais
//                      comum, nunca fará parte do resultado, servirá apenas para
//                      delimitar(dividir) a source em partes.
//             Index  - Número(posição) da parte a ser resgatada de source.
//
//Retorno:     String - Contera a parte de source que foi extraída.
function SST_Pedaco(Source, Del: string; Index: Integer): string;
var
  Posi, cont, pini: Integer;
  ret: string;

begin
  Ret := '';
  if (Source <> '') and (Del <> '') then
    begin
      posi := Pos(Del, Source);
      if posi < 1 then
        begin
          if Index = 1 then
            Ret := Source
          else
            Ret := ''
        end
      else
        begin
          pini := Pos(Del, Source);
          repeat
            Delete(Source, pini, Length(Del));
            Insert(#1, Source, pini);
            pini := Pos(Del, Source);
          until (pini = 0);
          cont := 0;
          Del := #1;
          repeat
            Inc(cont);
            Ret := '';
            for pini := 1 to posi - 1 do
              Ret := Ret + Source[pini];
            Source := Copy(Source, posi + 1, Length(Source));
            posi := Pos(Del, Source);
            if posi = 0 then
              posi := Length(Source) + 1;
          until cont >= Index;
        end;
    end;
  Result := Trim(Ret);
end;