RE: [delphi-br] Caminho sem espaçamento

2006-02-07 Por tôpico \[ Mutuka \]
:[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

Re: [delphi-br] Caminho sem espaçamento

2006-02-06 Por tôpico Eduardo - Yahoo
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 :=

RE: [delphi-br] Caminho sem espaçamento

2006-02-06 Por tôpico Eduardo Alves
; 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

Re: [delphi-br] Caminho sem espaçamento

2006-02-06 Por tôpico Julio Abdala
procedure tira_espaco( sFrase :String ) :String; Var X :String; Begin Result:= ''; For X:= 0 To Length( sFrase) - 1 do If sFrase[x] ' ' then Result:= Result +sFrase[x]; end; Tenta ai... Arthur Souza [EMAIL PROTECTED] escreveu: Ola galera, Tenho

Re: [delphi-br] Caminho sem espaçamento

2006-02-06 Por tôpico Denner Bizarria Branco
NomeNovo := StringReplace(NomeAntigo, ' ', '', [rfReplaceAll]); Arthur Souza wrote: Ola galera, 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