Also möchtest du jede Zahl in ein Label schreiben (von 1 bis z) oder nur in ein Label (1, 2, 3 ... z)?
Für das 1.:
Zuerst brauchst du die Labels... Am besten in ein Array, dann sind die einfacher zu erreichen:
Delphi-Quellcode:
var
lbls : array [0..99] of TLabel;
Nun musst du sie beim Anzeigen der Form erstellen:
Delphi-Quellcode:
for i := 0 to 99 do
begin
lbls[i] := TLabel.Create(<Besitzter>); // Das einzelne Label erstellen (Der Besitzter des Labels, ist normalerweise das Formular, und steht in der Varible "self")
with lbls[i] do begin
Parent := self;
Top := <Y>; //Z.B.: i * 10 + 8; Der Y-Abstand => Dynamisch!
Left := <X>; //Z.B.: 8; Der X-Abstand => Statisch!
Visble := false;
Caption := IntToStr(i + 1);
end;
end;
Diese musst du nun passend Anzeigen:
Delphi-Quellcode:
for i := 0 to z do // Alle Labels anzeigen, bis "z"
begin
lbls[i].Visible := true;
end;
for i := z + 1 to 99 do // Den Rest ausblenden
begin
lbls[i].Visible := false;
end;