tic tac toe.... mal wieder:) versteh aufgabestellung nicht ganz

[ensaron]

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 ^^