TicTacToe

Thema durchsuchen

Ansicht

Themen-Optionen

Ein Thema von Tytomik · begonnen am 29. Mär 2011 · letzter Beitrag vom 27. Apr 2011

Vorheriger Beitrag

Nächster Beitrag

DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.656 Beiträge

Delphi 12 Athens

#13

AW: TicTacToe

26. Apr 2011, 08:31

Oder so (allerdings ohne großartige Fehlerbehandlung):

markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

const

  Captions: array[1..2] of Char = ('x', 'o');

begin

  Druecken;

  (Sender as TButton).Caption := Captions[t];

  if t > 1 then

    t := 0;

end;

Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen