Tirando espacos em branco de um Edit...

Delphi

14/06/2004

Bom Dia Pessoal,

Preciso da ajuda de vcs pro seguinte problema:

Tenho num form 104 Edits e antes de gravar os dados ai inseridos preciso tirar todos os espacos em branco contido neles,nao queria fazer como mostrado abaixo, por isso peço se alguem de vcs sabe como fazer um for, while ou qualquer outro comando de loop para fazer o mesmo que essas linhas ai embaixo.

Edit1.A_NOME.Text := TrimRight(Edit1.A_NOME.Text);
Edit2.A_END.text := TrimRight(Edit2.A_END.Text);
.
.
Edit104.A_OBS.text := TrimRight(Edit104.A_OBS.Text);

OBRIGADO!


Claudio_f

Claudio_f

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

14/06/2004

Tenta este código.
var i: Integer;
begin
   for  i:= 0 to ComponentCount - 1 do
    if Components is TEdit then
     (Components[i] as TEdit).Text := TrimRight((Components[i] as TEdit).Text);
end;



GOSTEI 0
Claudio_f

Claudio_f

14/06/2004

Obrigadao Lucas, funcionou direitinho. :D


procedure TFrm_CAD_CLI.ESPACOS(Sender: TObject);
var i: Integer;
begin
for i:= 0 to ComponentCount - 1 do
if Components[i] is TEdit then
(Components[i] as TEdit).Text := TrimRight((Components[i] as TEdit).Text);
end;


GOSTEI 0
POSTAR