:[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
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 :=
;
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
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
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
5 matches
Mail list logo