Macro em delphi
Por exemplo. Tenho um form com 10 edits.
Quero trocar o valor de todos eles. Ao invés de fazer :
edit1.text := ´blabla´;
edit2.text := ´blabla´;
.
.
.
Tem como fazer:?
i := 1
while i <= 10
begin
edit[i].text := ´blabla´;
i ++;
end;
Seria legal, mas não funciona. Alguém sabe como fazer isso funcionar?
Valew. :)
Quero trocar o valor de todos eles. Ao invés de fazer :
edit1.text := ´blabla´;
edit2.text := ´blabla´;
.
.
.
Tem como fazer:?
i := 1
while i <= 10
begin
edit[i].text := ´blabla´;
i ++;
end;
Seria legal, mas não funciona. Alguém sabe como fazer isso funcionar?
Valew. :)
Doug_chagas
Curtidas 0
Respostas
Dbezerra
26/02/2003
coloque isso dentro de um procedimento qualquer. o click de um botao, por exeplo
var
i: Integer;
begin
for i := 0 to PrincipalForm.ComponentCount - 1 do
if PrincipalForm.Components[i] is TLabel then
TLabel(PrincipalForm.Components[i]).Caption := ´TESTANDO´;
end
´TESTANDO´ eh a string q vc quer colocar nas labels...
espero ter ajudado
Daniel Bezerra
var
i: Integer;
begin
for i := 0 to PrincipalForm.ComponentCount - 1 do
if PrincipalForm.Components[i] is TLabel then
TLabel(PrincipalForm.Components[i]).Caption := ´TESTANDO´;
end
´TESTANDO´ eh a string q vc quer colocar nas labels...
espero ter ajudado
Daniel Bezerra
GOSTEI 0