Deletar Pos 3° Sinal ?

Delphi

31/01/2009

Como Faço para Deletar Pos o 3° Sinal

ex: Tenho aqui um [b:1e12d1f01a]nome $ nome2 $ nome3 $ nome4[/b:1e12d1f01a]

Mais que o código delete do terceiro sinal, deixando apenas [b:1e12d1f01a]nome4[/b:1e12d1f01a]

Como posso Fazer Isso ?

Aguardo Resposta :wink:


Warfighter

Warfighter

Curtidas 0

Respostas

Onjahyr

Onjahyr

31/01/2009

Faça assim que funciona perfeito, qualquer coisa grita...


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;


T+


GOSTEI 0
Onjahyr

Onjahyr

31/01/2009

[b:c4048195ce]Edit1.Text := Trim(RetornaPalavra(3,´$´,S));[/b:c4048195ce]


GOSTEI 0
Warfighter

Warfighter

31/01/2009

Faça assim que funciona perfeito, qualquer coisa grita... 
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;
T+


Muito Bom

Realmente Funciono :wink:

Obrigado onjahyr

Até +


GOSTEI 0
POSTAR