Localizar todos os Edit´s em um form, e mudar a propriedade?

Delphi

26/08/2003

Como localizar todos os Edit´s em um form, e mudar a propriedade?
E qual o melhor lugar de colocar isto?

Esta é uma procedure que criei para deletar os Edit´s, poderia fazer um for não é?Como?

Aqui ele da um erro, exatamente no inclui.
com a mensagem - Undeclared Identified. ´Inclui´.
Vc sabe o que é?

Procedure DelValuesOfDataEntries;
begin
if GerenciadorCustomer.PageControl1.ActivePage=Inclui then
begin
GerenciadorCustomer.Edit1.Text:=´´;
GerenciadorCustomer.Edit2.Text:=´´;
GerenciadorCustomer.CGCCPF.Text:=´´;
GerenciadorCustomer.LabeledEdit1.Text:=´´;
GerenciadorCustomer.Edit4.Text:=´´;
GerenciadorCustomer.Edit5.Text:=´´;
GerenciadorCustomer.Edit6.Text:=´´;
GerenciadorCustomer.MaskEdit10.Text:=´´;
GerenciadorCustomer.MaskEdit1.Text:=´´;
GerenciadorCustomer.Edit8.Text:=´´;
GerenciadorCustomer.MaskEdit2.Text:=´´;
GerenciadorCustomer.MaskEdit3.Text:=´´;
end;


Host

Host

Curtidas 0

Respostas

Host

Host

26/08/2003

To te dando esta caja viu tchê, não te apruma!!
var
nAux: integer;
begin
for nAux := 0 to ComponentCount-1 do
begin
if Components[nAux] is TEdit then
TEdit(Components[nAux]).text := ´´;
end;
end;


GOSTEI 0
Host

Host

26/08/2003

Tchê guti, valeu uma barbaridade!!Aparece lá em casa pra toma um chimas, chega lá tche, que eu tenho uma cânha, prá lá de boenacha!!


GOSTEI 0
Nildo

Nildo

26/08/2003

var
nAux: integer;
begin
for nAux := 0 to Form1.ComponentCount-1 do
begin
if Form1.Components[nAux] is TCustomEdit then
TEdit(Form1.Components[nAux]).text := ´´;
end;
end;


GOSTEI 0
POSTAR