In den Beiträgen #4 und #5 gibts nen Vorschlag mit nem 2D-Array.
Zum Schreiben in die
GUI:
Wenn ich es richtig mitbekommen hatte, benutzt du für die Anzeige ja 9 Labels, die mit Label1 bis Label9 durchnummeriert sind.
Die Ausgabe würde ich dann wie folgt probieren (sicher nicht die schönste Variante, vielleicht hat ja noch jemand nen besseren Vorschlag):
Delphi-Quellcode:
procedure TForm1.Ausgabe;
var
lLabel: TLabel;
i,j: Integer;
lNummer: Integer;
begin
for i := 0 to 2 do
begin
for j := 0 to 2 to
begin
lNummer := (i + 1) + (j * (j + 1));
lLabel := TLabel(FindComponent('Label'+IntToStr(lNummer)));
lLabel.Caption := 'IntToStr(lNummer)'; //*
end;
end;
end;
*: In diese Zeile kommt dann hin, was immer du den einzelnen Labels zuweisen möchtest. In meinem Beispiel würden die Labels jetzt die Beschriftung 1 bis 9 zugewiesen bekommen.
EDIT: Das hier: "IntToStr((i+1)*(j+1))" haut noch nicht hin, da ja z.B. bei (i = 1 , j = 0) und (i = 0 , j = 1) das selbe Label gefunden wird.
EDIT #2: lNummer hinzugefügt und die Berechnung korrigiert ^^