ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

como retirar espaço em branco do meio de uma string

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
barbosasilva
Aprendiz
Aprendiz


Registrado: Quarta-Feira, 1 de Fevereiro de 2017
Mensagens: 102
MensagemEnviada: Seg Nov 06, 2017 12:03 pm    Assunto: como retirar espaço em branco do meio de uma string Responder com Citação
Bom dia, gente

tenho um vetor de string (NTDName), que contem o nome de varias alternativas. Gostaria de retirar espaços em branco que existam nesses nomes. Tentei o código abaixo mas n funcionou, como se ele n reconhecesse o ''

Código:
 for c18 := 0 to NTD - 1 do
        begin
          barname:=NTDName[c18];
          for i := Length(barname) downto 0 do
          begin
            if barname[i]='' then
            delete(barname,i,1);
          end;
          series_bar_name[c18]:=barname;
       end;


obrigada
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
marcieldeg
Colaborador
Colaborador


Registrado: Terça-Feira, 5 de Abril de 2011
Mensagens: 1054
Localização: Vitória - ES
MensagemEnviada: Seg Nov 06, 2017 12:12 pm    Assunto: Responder com Citação
Porque não usa o StringReplace?
http://docwiki.embarcadero.com/Libraries/Tokyo/en/System.SysUtils.StringReplace
_________________
"Olha a interface da IDE! Será que ela é? Será que ela é? DELPHI!"
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
barbosasilva
Aprendiz
Aprendiz


Registrado: Quarta-Feira, 1 de Fevereiro de 2017
Mensagens: 102
MensagemEnviada: Seg Nov 06, 2017 1:33 pm    Assunto: Responder com Citação
é porque eu n queria substituir o espaço, eu queria retira-lo! daria pra usar essa função mesmo assim ?
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
natanbh1
Colaborador
Colaborador


Registrado: Terça-Feira, 15 de Março de 2011
Mensagens: 3093
Localização: Belo Horizonte - MG
MensagemEnviada: Seg Nov 06, 2017 1:38 pm    Assunto: Responder com Citação
Sim. Veja um exemplo:
Código:
var
  teste: string;
begin
  teste:= 'Esta é uma string espaçada.';
  teste:= StringReplace(teste, ' ', '', [rfReplaceAll]);
  ShowMessage(teste);
end;

E para seu código funcionar, creio que você precisa dar um espaço dentro das aspas simples na comparação.

Troque:
Código:
if barname[i] = '' then

Por:
Código:
if barname[i] = ' ' then

_________________
''A persistência é o caminho para o êxito.''
Charlie Chaplin
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail
barbosasilva
Aprendiz
Aprendiz


Registrado: Quarta-Feira, 1 de Fevereiro de 2017
Mensagens: 102
MensagemEnviada: Qui Nov 09, 2017 10:18 am    Assunto: Responder com Citação
obrigada, gente!!! Problema resolvido. A sugestão que o natal deu funcionou!
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB