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

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

[DeddyH]

Wie sieht die Funktion aus und was genau übergibst Du ihr?

[biby90]

Delphi-Quellcode:

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

Delphi-Quellcode:

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

[DeddyH]

if CheckForWin([Label9.Caption, Label8.Caption, Label7.Caption]) then

[biby90]

Zitat:

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

Zitat:

[Pascal Fehler] Unit1.pas(287): E2034 Zu viele Parameter

Das will er auch nicht

[DeddyH]

Achja, das ist ja kein Open Array mehr. Dann eben so:

Delphi-Quellcode:

var
  Kombination: TMyStringArray;
begin
  Kombination[0] := Label1.Caption;
  Kombination[1] := Label2.Caption;
  Kombination[2] := Label3.Caption;
  if CheckForWin(Kombination) then