Justamente pq ele solicita que se o usuário digitar 2 espaços, fique
apenas 1, mas a solução do Moacir talvez seja mais prática, trocando 2
espaços entre as palavras por 1.
MinhaString := StringReplace(MinhaString,' ',' ',[rfReplaceAll]);
Enfim, com estas soluções acho que o Diego consegue resolver o problema dele...
--
[]'s
Malomar Alex Seminotti
Erechim - RS
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.
>>>
>>>
>>
