Fórum Como remover as aspas de uma string #244457

26/07/2004

0

Delphi

Como eu faco para tirar este caracter de um string ´´´

Exemplo:

´SANTA BARBARA D´OESTE´

Gostaria que ficasse assim

SANTA BARBARA DOESTE


:arrow: [color=red:1981b3f5a2]Título alterado pelo Moderador oTTo.[/color:1981b3f5a2]
:idea: [color=blue:1981b3f5a2]Seja mais claro no título.[/color:1981b3f5a2]
:idea: [color=blue:1981b3f5a2][url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=16976]Saiba como obter resposta rápida..[/url][/color:1981b3f5a2]
:idea: [color=blue:1981b3f5a2]Leia sempre [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=6689]Regras de Conduta.[/url][/color:1981b3f5a2]
:idea: [color=blue:1981b3f5a2]Use sempre o Link [url=http://delphiforum.icft.com.br/forum/search.php][img:1981b3f5a2]http://delphiforum.icft.com.br/forum/templates/subSilver/images/icon_mini_search.gif[/img:1981b3f5a2] Pesquisar[/url] no topo da Página.[/color:1981b3f5a2]
:idea: [color=blue:1981b3f5a2]Evite usar caixa alta nos títulos.[/color:1981b3f5a2]


Evandro_araujo

Evandro_araujo

Responder

Posts

26/07/2004

Rômulo Barros

[color=red:bf3a323d2a][b:bf3a323d2a]Respondendo:[/b:bf3a323d2a][/color:bf3a323d2a] :P 

procedure TForm1.Button1Click(Sender: TObject);
Var
  Teste,Teste2 : String;
  Cont  : Word;
begin
   Teste := ´´´U´´nde´´clar´´ed´´ Id´´entif´´ie´´r´;
   ShowMessage(´Com as aspas: ´ + Teste);
   For Cont := 1 To Length(Teste)Do
   Begin
      If(Copy(Teste,Cont,1)<>´´´´)Then
        Teste2 := Teste2 + Copy(Teste,Cont,1);
   End;
   ShowMessage(´Sem as Aspas: ´ + Teste2);
end;



Responder

Gostei + 0

26/07/2004

Cabelo

Colega..

Bem simples..

StringReplace( ´SANTA BARBARA D´OESTE´, ´´´´, ´´, []);

espero ter ajudado..

Cabelo


Responder

Gostei + 0

26/07/2004

Rômulo Barros

Colega.. Bem simples.. StringReplace( ´SANTA BARBARA D´OESTE´, ´´´´, ´´, []); espero ter ajudado.. Cabelo


Boa solução, Cabelo. Eu não conhecia o método StringReplace(String Args[]);


Responder

Gostei + 0

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

Aceitar