Fórum Consulta SQL (P/ Motta ou quem puder ajudar) #157441
02/05/2003
0
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
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
Curtir tópico
+ 0
Responder
Posts
02/05/2003
Angelo
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
Valeu!
Angelo
angelo_l_santos@brturbo.com
Responder
Gostei + 0
02/05/2003
Aroldo Zanela
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.
Responder
Gostei + 0
02/05/2003
Aroldo Zanela
No caso do Delphi7:
Edit1.Text := StringReplace(Edit1.Text,´ ´, ´¬´, [rfReplaceAll]);
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)