trocar quot;/quot; ou quot;-quot; por quot; quot; espa
11/02/2006
0
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
Posts
11/02/2006
Marco Salles
procedure TForm1.Button1Click(Sender: TObject); var str: String; begin str:= StringReplace(Edit1.Text,´.´,´ ´, [rfReplaceAll]); str:= StringReplace(str,´/´,´ ´, [rfReplaceAll]); Edit2.Text:=str; end;
11/02/2006
Vinicius2k
ou...
function SubstituirTexto(S: string): string; const Str = ´-/´; var I: Integer; begin for I := 1 to Length(S) do if Pos(S[I], Str) > 0 then S[I] := 32; Result := S; end;
T+
12/02/2006
Marco Salles
procedure TForm1.Button1Click(Sender: TObject); var str: String; begin str:= StringReplace(Edit1.Text,´.´,´ ´, [rfReplaceAll]); str:= StringReplace(str,´/´,´ ´, [rfReplaceAll]); Edit2.Text:=str; end;
[b:b446c1563d]onde se lê ponto , trocar por ´-´[/b:b446c1563d]
13/02/2006
Erivando
eu gostaria era de trocar, traço ou barra por espaço ´-´ ou ´/´ por ´ ´
como ficaria?
R@mos
13/02/2006
Vinicius2k
Você testou a minha resposta? É exatamente isso que a função que postei faz...
13/02/2006
Marco Salles
???????????
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
13/02/2006
Erivando
usei o StringReplace da forma que eu queria.
deu tudo certinho!
Clique aqui para fazer login e interagir na Comunidade :)