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

Delphi

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

Erivando

Curtidas 0

Respostas

Marco Salles

Marco Salles

11/02/2006

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



GOSTEI 0
Vinicius2k

Vinicius2k

11/02/2006

[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], Str) > 0 then S[I] := 32;
  Result := S;
end;


T+


GOSTEI 0
Marco Salles

Marco Salles

11/02/2006

corrigindo o ultimo post

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]


GOSTEI 0
Erivando

Erivando

11/02/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


GOSTEI 0
Vinicius2k

Vinicius2k

11/02/2006

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


GOSTEI 0
Marco Salles

Marco Salles

11/02/2006

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


GOSTEI 0
Erivando

Erivando

11/02/2006

Obrigado!

usei o StringReplace da forma que eu queria.

deu tudo certinho!


GOSTEI 0
POSTAR