Fórum Tirando espacos em branco de um Edit... #237525
14/06/2004
0
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!
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
Curtir tópico
+ 0
Responder
Posts
14/06/2004
Lucas Silva
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;
Responder
Gostei + 0
14/06/2004
Claudio_f
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;
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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)