Array
(
)

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

Erivando
   - 11 fev 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


Marco Salles
   - 11 fev 2006

use o StringReplace Amigo InfoRamos
#Código

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



Vinicius2k
   - 11 fev 2006


Citação:
use o StringReplace

ou...
#Código

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+


Marco Salles
   - 12 fev 2006

corrigindo o ultimo post

#Código

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


onde se lê ponto , trocar por ´-´


Erivando
   - 13 fev 2006

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


Vinicius2k
   - 13 fev 2006

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


Marco Salles
   - 13 fev 2006


Citação:
Olá amigos!

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



Citação:
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


Erivando
   - 13 fev 2006

Obrigado!

usei o StringReplace da forma que eu queria.

deu tudo certinho!