Tic Tac Toe Auswertung Problem *heul*

[shmia]

Hallo erstmal.
Du hast einen grossen Fehler gemacht:
du verwendest normale Funktionen und Prozeduren anstelle von Methoden.
Deshalb steht bestimmt 100 Mal in deinem Sourcecode "Form4.Irgendetwas".
Hier erstmal der schlechte Code:

Delphi-Quellcode:

procedure Auswertung; 
begin 
.....
Form4.button3.Visible := false; 
Form4.button4.Visible := false; 
Form4.button5.Visible := false; 
...

Und so wär's viel besser:

Delphi-Quellcode:

TForm4 = class(TForm) 
  ....
  private 
    { Private-Deklarationen }

    // private Variablen
    Spieleein : Array[1..4] of Boolean; 
    PCcheck,SPcheck: boolean; //PC oder SPieler dran 
    Buttonwahl: integer; // Pc wählt im Random ein Button aus 

    // private Methode(n)
    procedure Auswertung;    // *** <==========

  public 
    { Public-Deklarationen } 
  end; 
...

procedure TForm4.Auswertung;    // *** <==========
begin
  ....
  // und jetzt muss das "Form4" weg !!
  // das spart viel Schreibarbeit und hat auch andere Vorteile
  button3.Visible := false; 
  button4.Visible := false; 
  button5.Visible := false;

Ich würde vorschlagen, du schreibst alles um, bis die ganzen "Form4" alle verschwinden (mit Ausnahme von var Form4:TForm4.