Forum: Object-Pascal / Delphi-Language
by Butch87,
26. Aug 2011
Und es fehlt immernoch das Begin und End :D
procedure TForm1.CountClick;
begin
if CheckForWin(GBuffer) then
begin
Exit;
end;
if GPlayer = 1 then
begin
i := i +1;
Forum: Object-Pascal / Delphi-Language
by Butch87,
26. Aug 2011
Na doch, da sonst in jedem Fall hochgezählt wird, egal ob schluss ist oder nicht.
Oder steh ich grad aufm Schlauch? :gruebel:
In welcher Reihenfolge denn nun?
Forum: Object-Pascal / Delphi-Language
by Butch87,
26. Aug 2011
Joah.
Die Gewinnabfrage musst du einfach vor dem Aktualisieren der Labels machen.
Ansonsten hat er ja gar nicht die Chance den Code vorzeitig zu verlassen.
procedure TForm1.CountClick;
begin
if CheckForWin(GBuffer) then // nicht direkt auf true bzw false prüfen (wurde dir schon öfters nahe
// gelegt)
begin