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]> 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
> 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]> 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]
