O StringReplace resolve isso de forma mais simples... Ex: var x: string; begin x := 'Borland Delphi 2006'; showmessage(StringReplace(x, ' ', '', [rfReplaceAll,rfIgnoreCase]));
irá aparecer BorlandDelphi2006 []'s Andreano Lanusse System Engineer Borland Latin America Tel: +55 (11) 2165.8089 / Mobile: +55 (11) 8196.5912 [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> - www.borland.com.br <blocked::http://www.borland.com.br/> A Borland Software é líder global em soluções independentes de plataforma para o Software Delivery Optimization, auxiliando nossos clientes a resolverem as restrições no desenvolvimento de aplicações nos dias de hoje, para maximizar o valor do negócio de seu software. ________________________________ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo Alves Enviada em: segunda-feira, 6 de fevereiro de 2006 17:39 Para: delphi-br@yahoogrupos.com.br Assunto: RE: [delphi-br] Caminho sem espaçamento So uma colaboração: Function SemEspaco(STR : String) : String; // Filtra todos os numeros de uma string var Ind : Integer; TmpRet : String; begin TmpRet := ''; for Ind := 1 to Length(STR) do begin if STR[Ind] <> ' ' then begin TmpRet := TmpRet + STR[Ind]; end; end; Result := TmpRet; end; Assim vc nao precisa do copy. Eduardo -----Original Message----- From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of Eduardo - Yahoo Sent: segunda-feira, 6 de fevereiro de 2006 14:31 To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Caminho sem espaçamento Arthur Em Delphi utilize esta função... Function SemEspaco(STR : String) : String; // Filtra todos os numeros de uma string var Ind : Integer; TmpRet : String; begin TmpRet := ''; for Ind := 1 to Length(STR) do begin if (Copy(STR,Ind,1) <> ' ') then begin TmpRet := TmpRet + Copy(STR, Ind, 1); end; end; Result := TmpRet; end; ----------------------------------------------- Arthur - escreveu .......... Tenho uma Base em Access onde possuo um campo FOTO onde guardo o caminho das fotos dos produtos, lá tenho 30 mil registros cadastrados. Pois o problema é que muitos dos caminhos estão com espaçamento a mais. Como bolar um programa para retirar esse espaçamento. Por exemplo: FOTO--> img/imov/23090 .jpg //com espaçamenteo FOTO--> img/imov/23090.jpg // remoção do espaçamento [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Links do Yahoo! Grupos -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE <http://br.ard.yahoo.com/SIG=12f28o8ji/M=393477.7870451.8719931.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1139258347/A=3254979/R=0/id=noscript/SIG=12k5j3olb/*http://www.momentumquiz.com.br/index.php?md5ref=372BBEE98E9544bd8B2F9E87847EEEBE_3> ________________________________ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! <http://br.yahoo.com/info/utos.html> . [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
