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

[DeddyH]

Ich habe ja bereits mehrfach gesagt, dass ich keinen Schimmer habe, wozu dieser Array-Parameter gut sein soll.

[biby90]

was auch immer hier stand.... es ist schwachsinn

[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.

[biby90]

hmmm.... okaaaaay ich versuchs gleich mal'!
so in etwa sollte mein Array ja auch Sinn ergeben^^

[biby90]

als Parameter würde ich also alle drei angeben?

[DeddyH]

Japp.

[biby90]

Zitat:

[Pascal Fehler] Unit1.pas(287): E2001 Ordinaltyp erforderlich

Zitat:

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

Delphi-Quellcode:

if CheckForWin([Label9.Caption, Label7.Caption, Label8.Caption]) then
    begin
      Label9.Caption := '';
      ShowMessage(IntToStr(GPlayer)+' hat gewonnen!');
      GPlayer := 1;
    end else

ich dreh durch

[biby90]

ach sollte vielleicht mal Labels1 usw Schreiben oder? Ich glaube das macht Sinn

[DeddyH]

Den Typ und die Funktion so deklarieren wie ich oben gezeigt habe, dann sollte das klappen.

[biby90]

Zitat:

[Pascal Fehler] Unit1.pas(287): E2010 Inkompatible Typen: 'MyStringArray' und 'TLabel'

kann ja wohl nicht sein!