TicTacToe

[Satty67]

Mehre Anweisungen, die nach nach einer If-Prüfung ausgeführt werden sollen, in einen Anweisungsblock setzen.

Also statt
if t=2 then button1.caption ('o') and t=0; .

so

Delphi-Quellcode:

If t=2 then 
begin
  button1.caption ('o');
  t=0;
end;

Zuweisungen mit := also entgültig dann so

Delphi-Quellcode:

If t=2 then 
begin
  button1.caption := 'o';
  t := 0;
end;

PS: Im Quelltext-Kommentar steht ja, was er erreichen will.

PPS: Zuweisungs- und Vergleichsoperator (=, :=) und Anweisungsblöcke sind absolutes Basiswissen. Unbedingt nochmal mit den Grundlagen (Operatoren, Schlüsselwörter usw.) beschäftigen!

[Tytomik]

Danke ich habe das auch noch geändert aber ich glaube der fehler ist
bei meiner eigene procedure.
Kann das sein?
Er zeigt immer noch den gleichen Fehler an.

[nuclearping]

Ist das im ersten Beitrag dein KOMPLETTER Source aus der Form1? Wenn ja, wo ist der Header?

Delphi-Quellcode:

unit Form1;

interface

uses
  ...

type
  TForm1 = class(TForm)
     ...

?

[Tytomik]

Nein der ist obendran aber den wollte ich nicht dazu tun.

[Neutral General]

Nochwas:

Es sollte so aussehen:

Delphi-Quellcode:

    
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);    
  private
    { Private declarations }
  public
    procedure Drueken;
  end;

Du solltest dir mal irgendwo die Grundlagen (vor allem Syntax und Unit-/Programmaufbau!

[Luckie]

Warum sollte die Prozedur Drueken öffentlich sein. Wenn man mal davon absieht das drücken mit ck geschrieben wird. Des weiteren warte ich noch auf eine Beantwortung meiner Frage.

[Neutral General]

Ja stimmt du hast recht. Im Private-Bereich wäre die Methode eigentlich besser aufgehoben.