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

11/02/2006

0

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

Responder

Posts

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]);
str:= StringReplace(str,´/´,´ ´, [rfReplaceAll]);
Edit2.Text:=str;
end;



Responder

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


T+


Responder

12/02/2006

Marco Salles

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]


Responder

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

13/02/2006

Vinicius2k

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


Responder

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

13/02/2006

Erivando

Obrigado!

usei o StringReplace da forma que eu queria.

deu tudo certinho!


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar