Macro em delphi

Question

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. :)

Dbezerra · Answer

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

F�rum Macro em delphi #141127