jak w temacie.
var
i : Integer;
begin
for i := 3 to 6 do
begin
form2.Label[i].Caption := 'blabla';
end;
end;
jak w temacie.
var
i : Integer;
begin
for i := 3 to 6 do
begin
form2.Label[i].Caption := 'blabla';
end;
end;
var
i : Integer;
begin
for i := 3 to 6 do
begin
TLabel(form2.FindComponent('Label'+IntToStr(i))).Caption := 'blabla';
end;
end;
--Jest jeszcze jeden błąd ... :)
heh zapomniałem dopisać że to moje niedział.
Ale Dryobates poprawił i teraz jest oki
THX