trocar quot;/quot; ou quot;-quot; por quot; quot; espa

11/02/2006

Olá amigos!

preciso de uma função que remova ´/´ ou ´-´ por ´ ´ espaço vazio de uma string.

EX: PORTUGUÊS - TEXTO - REDAÇÃO
mim retornar : PORTUGUÊS TEXTO REDAÇÃO

FuncaoRetornaEspaco( texto c/ baras - traços , retorno sem barras e espaços);

Fico muito grato a quem mim ajudar.

R@mos


Erivando

Respostas

11/02/2006

Marco Salles

use o [b:1e86d86315]StringReplace[/b:1e86d86315] Amigo InfoRamos
procedure TForm1.Button1Click(Sender: TObject);
var
str: String;
begin
str:= StringReplace(Edit1.Text,´.´,´ ´, [rfReplaceAll&93;);
str:= StringReplace(str,´/´,´ ´, &91;rfReplaceAll&93;);
Edit2.Text:=str;
end;



Responder Citar

11/02/2006

Vinicius2k

[quote:83526d2517=´Marco Salles´]use o [b:83526d2517]StringReplace[/b:83526d2517][/quote:83526d2517]
ou...
function SubstituirTexto(S: string): string;
const
  Str = ´-/´;
var
  I: Integer;
begin
  for I := 1 to Length(S) do
    if Pos(S[I&93;, Str) > 0 then S&91;I&93; := 32;
  Result := S;
end;


T+


Responder Citar

12/02/2006

Marco Salles

corrigindo o ultimo post

procedure TForm1.Button1Click(Sender: TObject); 
var 
str: String; 
begin 
str:= StringReplace(Edit1.Text,´.´,´ ´, [rfReplaceAll&93;); 
str:= StringReplace(str,´/´,´ ´, &91;rfReplaceAll&93;); 
Edit2.Text:=str; 
end;


[b:b446c1563d]onde se lê ponto , trocar por ´-´[/b:b446c1563d]


Responder Citar

13/02/2006

Erivando

oi, amigo obrigado por a dica mas...

eu gostaria era de trocar, traço ou barra por espaço ´-´ ou ´/´ por ´ ´

como ficaria?

R@mos


Responder Citar

13/02/2006

Vinicius2k

:?:
Você testou a minha resposta? É exatamente isso que a função que postei faz...


Responder Citar

13/02/2006

Marco Salles

Olá amigos! preciso de uma função que remova ´/´ ou ´-´ por ´ ´ espaço vazio de uma string.


eu gostaria era de trocar, traço ou barra por espaço ´-´ ou ´/´ por ´ ´


???????????

eu nun sei qual das duas citaçoes acima voce quer .. Parece que são parecidas mas conflitantes

mas de qualquer forma pode-se usar o StringReplace ou usar a função do Vinicius.2k


Responder Citar

13/02/2006

Erivando

Obrigado!

usei o StringReplace da forma que eu queria.

deu tudo certinho!


Responder Citar