Leonardo,
Use StringReplace para isto:
MinhaString:=StringReplace(MinhaString,' ','',[rfReplaceAll]);
[ ]´s
Moacir
ps.:
Em caso de nostalgia:
Function AllTrim( str : string ) : string;
begin
Result := StringReplace(str,' ','',[rfReplaceAll]);
end;
;)
Leonardo Quinino escreveu:
> TESTEI do seu jeito, mas tem algo errado algumas vezes retira outras não,
> porque vc incrementa o iCont antes de fazer o delete na string vazia (#32)
> reescrevi ficou mais ou menos assim
>
> //o nome alltrim foi só para relembrar os velhos tempos do clipper rs :)
> Function AllTrim( str : string ) : string;
> var
> iCont: Integer;
> sStr: String;
> begin
> sStr := str;
> iCont := 1;
> while iCont <= Length(sStr) do
> begin
> if sStr[iCont] = #32 then
> begin
> Delete(sStr, iCont, 1);
> while sStr[iCont] = #32 do
> Delete(sStr, iCont, 1);
> end;
> Inc(iCont);
> end;
> Result := sStr;
> end;
>
>
> Em 16/05/07, Malomar Alex Seminotti <[EMAIL PROTECTED]> escreveu:
>
>> Dá uma olhada se isso é o que vc precisa.
>>
>> procedure OneSpace;
>> var
>> iCont: Integer;
>> sStr: String;
>> begin
>> inherited;
>> sStr := Trim(' TESTE DE VÁRIOS ESPAÇOS ');
>> iCont := 1;
>> while iCont <= Length(sStr) do begin
>> if sStr[iCont] = #32 then begin
>> Inc(iCont);
>> while sStr[iCont] = #32 do
>> Delete(sStr, iCont, 1);
>> end;
>> Inc(iCont);
>> end;
>> ShowMessage(sStr);
>> end;
>>
>> --
>> []'s
>> Malomar Alex Seminotti
>> Erechim - RS
>>
>> Ricardo César Cardoso escreveu:
>>
>>
>>
>>> Não me leve a mal, mas eu tinha citado isso, veja atentamente o exemplo
>>>
>> que eu passei.
>>
>>> Sds,
>>> Ricardo.
>>>
>>> BandaLemuel <[EMAIL PROTECTED] <bandalemuel%40yahoo.com.br>>
>>>
>> escreveu: Ou somente Trim(string);
>>
>>> Ele tira os espaços do Inicio e do Fim..
>>>
>>> Wesley
>>> ----- Original Message -----
>>> From: Ricardo César Cardoso
>>> To: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>
>>> Sent: Tuesday, May 15, 2007 8:48 AM
>>> Subject: Re: [delphi-br] Remover espaços
>>>
>>> bem... vc teria que usar a função Trim para isso.
>>>
>>> Um exemplo:
>>>
>>> TForm1.Button1Click(Sender: TObject);
>>> Begin
>>> Label1.Caption := Trim(Edit1.Text);
>>> // Variações:
>>> // TrimLeft - tira os espaços à esquerda da string
>>> // TrimRight - tira os espaços à direita da string
>>> End;
>>>
>>> Agora é só adaptar pra tua necessidade.
>>>
>>> Sds,
>>> Ricardo.
>>>
>>> Diego Dmitruk Maturana <[EMAIL PROTECTED] <diego%40dlmnet.com.br>>
>>>
>> escreveu: Olá, tenho no Delphi um campo DBEdit, e gostaria que quando a
>> pessoa clicar em SALVAR, ele removesse mais de um espaço, caso a pessoa
>> tenha digitado mais de um. EX: A pessoa digita Delphi BR, mas quero que ele
>> filtre e salve como Delphi Br (somente com um espaço.)
>>
>>> Se alguém puder ajudar agradeço.
>>>
>>> Diego.
>>>
>>>
>>>
>>>
>> [As partes desta mensagem que não continham texto foram removidas]
>>
>>
>>
>>
>
>
>
>
[As partes desta mensagem que não continham texto foram removidas]
