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

[DeddyH]

Mir ist gerade eine Idee gekommen: wenn man der Funktion immer 3 Strings übergibt und sie diese vergleicht, dann könnte das zumindest noch ein bisschen Sinn ergeben.

Delphi-Quellcode:

type
  TMyStringArray = array[0..2] of string;

function CheckForWin(Labels: TMyStringArray): Boolean;
begin
  Result := (Labels[0] = Labels[1]) and (Labels[0] = Labels[2]);
end;

Damit prüft die Funktion, ob alle 3 Strings gleich sind. Nun kann man sie einmal für jede Zeile, einmal für jede Spalte und je einmal für die Diagonalen aufrufen.