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

[biby90]

Mein Ausbilder hat mir jetzt eine Nachricht geschickt nachdem er gestern kurzen BLick auf mein Programm geworfen hat....
ich soll jetzt ein 2 dimensionales Array machen. Ist ja alles wunderbest.
jetzt soll ich aller´dings auch eine Procedure machen, das Daten aus dem Array in die GUI schreibt.
Über einen kleinen Tipp wäre ich dankbar.

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

[DeddyH]

Wie wäre es denn mit dem irgendwann meinerseits angesprochenen Record?

[biby90]

davon habe ich ja noch nie was gehört.... also gelesen schon aber ich weiß nicht wozu es da ist?!

[DeddyH]

Du kannst damit vereinfacht gesagt Daten in einer Struktur zusammenhalten.

Delphi-Quellcode:

type
  TTestRec = record
    IntVal: integer;
    StringVal: string;
  end;

var 
  Rec: TTestRec;
begin
  Rec.IntVal := 42;
  Rec.StringVal := 'Männer und Frauen passen einfach nicht zusammen.';
end;

Somit hast Du in diesem Beispiel eine Integer und einen String in einer Struktur (einem Record) vom Typ TTestRec zusammengefasst. Auf die enthaltenen Felder kannst Du wie bei Klassen mit der Punkt-Notation zugreifen.