Fórum Deletar Pos 3° Sinal ? #368105

function RetornaPalavra(strPosicao : integer; strSeparador, strTexto: String) : String;
var
  Lista : TStringList;
begin
  Result := ´´;
  Lista := TStringList.Create;
  Lista.Text := StringReplace(strTexto,strSeparador,#1310,[rfReplaceAll, rfIgnoreCase]);
  if strPosicao <= Lista.Count then
    Result := Lista.Strings[strPosicao - 1];
  Lista.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  S : String;
begin
  S := ´João Gilberto $ José de Andrade $ Maria Augusta $ Ana Carolina´;

  { -> Primeiro parâmetro:
    1 = João Gilberto;
    2 = José de Andrade;
    3 = Maria Augusta;
    4 = Ana Carolina;
    -> Segundo parâmetro:
    É o separador, no caso = ´$´;
    -> Terceiro parâmetro:
    É a String contendo a frase completa
  }

  S := RetornaPalavra(3,´$´,S);

  // O Trim() é para retirar os espaços em branco da esquerda e da direita
  Edit1.Text := Trim(S);
end;