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

[DeddyH]

Das E-Book vom Delphi-Treff kennst Du bereits? Da geht es zwar eigentlich um Delphi XE Starter, das meiste ist aber auch in älteren Versionen anwendbar.

[biby90]

ja und nein.....
Also ich kenne Delphi-Treff zu mindest... da gibt es ja auch Tutorials und sowas....
ich werde mir direkt mal den Link aufschreiben.

Ihr seid alle echt die Besten

[biby90]

sorry wenn ich jetzt wieder nerven sollte.

Delphi-Quellcode:

procedure TForm1.Label1Click(Sender: TObject);
begin
  if IsFieldEmpty() = true then  // was für einen parameter?
  begin
    Label1.Caption:=WriteToField(GPlayer);
    if CheckForWin() = true then  // und hier?
    begin
      Label1.Caption:='';
      ShowMessage(IntToStr(GPlayer)+' hat gewonnen!');
      GPlayer:=1;
    end else
    begin
      ChangePlayer;
    end;
  end;
end;

Ich weiß einfach nicht was für Parameter ich dort brauche. Alles was ich versucht habe wollte der Compiler nicht, sprich er sagt

Zitat:

[Pascal Fehler] Unit1.pas(157): E2033 Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen

eine kleine Hilfe? Biite ohne Vorwürfe, dass ich diese Aufgabe nicht bearbeiten sollte^^

[DeddyH]

Wie sind die Routinen denn implementiert? Übrigens: bitte niemals(!!!) auf true prüfen, das kann in die Hose gehen.

Delphi-Quellcode:

if Dings = true then
//->
if Dings then

if Dings = false then
//->
if not Dings then

[biby90]

function TForm1.CheckForWin(var AIndex: array of string): Boolean;
function TForm1.IsFieldEmpty(var AIndex: String): Boolean;
function TForm1.WriteToField(var Player: Integer): String; also muss ich die alle umschreiben und auf false prüfen?

[himitsu]

Wieso sind diese Parameter eigentlich als VAR deklariert?
Ich vermutemal, daß dort nichts verändert werden soll.

Tja, VAR-Parameter müssen "genau" übereinstimmen.
Ist dort z.B. ein Integer-Parameter vorgegeben, dann muß uch eine Integer-Variable übergeben werden ... wenn nicht, dann kommt eben die Meldung "... stimmt nicht überein ...".

[biby90]

also könnte ich sie praktisch genommen ohne var schreiben und dann würde das funktionieren?

Zitat:

wieso das Var-Parameter sein müssen.

war eine Vorgabe der Aufgabe. Ich habe es sonst auch nie als Var deklariert.

Zitat:

dann muß uch eine Integer-Variable übergeben werden

also eine lokale Variable, die ich anlegen muss?

[DeddyH]

Wenn Du Var-Parameter deklarierst, dann brauchst Du auch entsprechende Variablen, die Du dann übergibst.

Delphi-Quellcode:

procedure Verdopple(var Zahl: integer);
begin
  Zahl := Zahl * 2;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  x: integer;
begin
  x := 1;
  Verdopple(x);
  ShowMessage(IntToStr(x));
end;

Allerdings ist mir der Sinn der Parameter nicht klar, schon gar nicht, wieso das Var-Parameter sein müssen.

[Sherlock]

Zitat von biby90:

also muss ich die alle umschreiben und auf false prüfen?

NEIN!

Das Ergebnis der Funktionen ist ja bereits ein Wahrheitswert (Boolean). Deshalb musst Du nur zB
if CheckForWin(a) then schreiben. Das reicht völlig, und erspart dir das eine oder andere Problem.

Sherlock

[DeddyH]

Hatte ich das nicht druntergeschrieben?