Forum: Object-Pascal / Delphi-Language
by stahli,
28. Feb 2011
Hast Du mal einen Haltepunkt gesetzt und den Ablauf schrittweise verfolgt?
M.E. müssten die Funktionen abwechselnd aufgerufen werden (wobei man als Nutzer davon natürlich nichts weiter merkt, da ja nur Variableninhalte geändert werden.
Von der Logik her würde ich die Funktionen tauschen:
repeat // Schleife initiieren
if SpielerIstAmZug then // Wenn Flag auf True steht dann...
...
Forum: Object-Pascal / Delphi-Language
by stahli,
24. Feb 2011
Ja richtig.
Deine Prozedur könnte so aussehen:
procedure SpielerZieht(var XYZ: Boolean; LP: Integer);
begin
...
if SpieleristTot then
XYZ := True;
end;
Forum: Object-Pascal / Delphi-Language
by stahli,
24. Feb 2011
ungefähr so...
Ende := False;
SpielerIstAmZug := True;
...
repeat
if SpielerIstAmZug then
begin
SpielerZieht(Ende); // kann Ende auf True setzen
end
Forum: Object-Pascal / Delphi-Language
by stahli,
24. Feb 2011
Ein Flag ist eine Boolean-Variable, das "JA" beinhalten kann (oder eben nicht).
Wechseln kann man das sehr leicht durch Flag := not Flag;
Man kann auch eine Intergervariable nutzen und diese hochzählen.
I := 1;
...
Inc(I);