Hallo,
angenommen du hast deine Labels bereits alle erzeugt und sie stehen in einer TComponentList bereit:
Delphi-Quellcode:
procedure ShowDigits(
cl: TComponentList; // Liste mit den Labels
const number: Cardinal; // darzustellende Zahl
var index: Integer // erster zu verwendender Label
);
var
s: string;
i: Integer;
begin
s := IntToStr(number);
for i := 1 to Length(s) do
begin
TLabel(cl[index]).Caption := s[i];
Inc(index);
end;
end;
Getippt und nicht getestet.
Das sind so wenige Zeilen - da solltest du dir einen Zugang erarbeiten können.
Aufmunternde Grüße