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

[DeddyH]

Könnte man das nicht gleich von Anfang an ordentlich aufziehen und Logik und Darstellung trennen? Ich finde, damit kann man gar nicht früh genug anfangen und gewöhnt sich dann suboptimale Arbeitsweise gar nicht erst an.

[biby90]

ja hatte ich ja auch^^
nur wusste ich ja nicht dass es nicht funktioniert.
ich habe den Teil mit CheckForWin auskommentiert.... also es klappt alles hundert Prozent!
nur das ist eben noch die Sache die klappen muss

[DeddyH]

Nee, das hast Du nicht, Du verwendest visuelle Controls (TLabel) als Datenspeicher. Dafür sind sie aber nicht gedacht, sondern nur zur Darstellung von Daten. Ich weiß, dass man solchen Code oft findet, richtig gut ist das aber beileibe nicht.

[himitsu]

Du hast ein Parameter-Array ... wie wäre es, wenn man die Captions der Labels an diesen Parameter (beim Aufruf der Prozedur) übergibt?

[mleyen]

Jetzt kommt ihr sogar hier noch mit asm und irgendwelchen factory factory factorys.... :roll::roll:

Delphi-Quellcode:

  AIndex[1]:= Label1.Caption;
  AIndex[2]:= Label2.Caption;
  AIndex[3]:= Label3.Caption;
  AIndex[4]:= Label4.Caption;
  AIndex[5]:= Label5.Caption;
  AIndex[6]:= Label6.Caption;
  AIndex[7]:= Label7.Caption;
  AIndex[8]:= Label8.Caption;
  AIndex[9]:= Label9.Caption;

[biby90]

Na, das muss man mir ja auch sagen, dass man es mit Labels nicht machen kann.
Ich muss die halt benutzen. dann suche ich mir mal einen anderen Weg womit es klappt.

[DeddyH]

Nö, ich hätte jetzt an einen Record mit Status (der neue Typ) und zugehörigem Label gedacht sowie einem 2-dimensionalen Array desselben. Das ist zwar immer noch nicht ideal, hält aber zusammen, was zusammen gehört.

[biby90]

Zitat:

wenn man die Captions der Labels an diesen Parameter

Delphi-Quellcode:

if CheckForWin(Label9.Caption) then

das macht der Compiler nicht.

Zitat:

[Pascal Fehler] Unit1.pas(277): E2010 Inkompatible Typen: 'Array' und 'TCaption'

[DeddyH]

Delphi-Quellcode:

if CheckForWin([Label1.Caption, Label2.Caption, Label3.Caption]) then

[biby90]

aber mit dem Label1 hat er ja 3 Gewinnmöglichkeiten.