Consulta SQL (P/ Motta ou quem puder ajudar)

Delphi

02/05/2003

Agradeço a ajuda acima e volto com outra dúvida:
Tenho certeza de que irá funcionar, então agora o que eu preciso fazer e pegar a string (a qual eu alimentei com um edit) e fazer que a cada espaço seja colocado uma ¬, exemplo a string está assim: ´Senhor dos Anéis´ e far com que ele fique assim: ´Senhor¬dos¬Aneis´, mas como fazê-lo, tem ideia?

Angelo


Angelo

Angelo

Curtidas 0

Respostas

Angelo

Angelo

02/05/2003

Agradeço sinceramente ao Motta eo ao Schwarze pela grande ajuda recebida, no que for preciso e possível contem comigo!
Valeu!

Angelo

angelo_l_santos@brturbo.com


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

02/05/2003

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := TrocaString(Edit1.Text, ´¬´);
end;

function TForm1.TrocaString(Texto: String; Ch: Char): String;
var nPosicao: Integer;
begin
While pos(#32, Texto)>0 do
  begin
  nPosicao := pos(32, Texto);
    Delete(Texto,nPosicao,1);
    Insert(´¬´,Texto,nPosicao);
end;
Result := Texto;
end;


Dependendo da versão do Delphi, você poderia usar outras funções, mas no caso, este exemplo ser para qualquer versão.


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

02/05/2003

No caso do Delphi7:

  Edit1.Text := StringReplace(Edit1.Text,´ ´, ´¬´, [rfReplaceAll]);



GOSTEI 0
POSTAR