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

[DeddyH]

Lesestoff zu Arrays

[Butch87]

Zitat von DeddyH:

Die Reihenfolge ist aber nicht das Entscheidende, sondern dass

Na doch, da sonst in jedem Fall hochgezählt wird, egal ob schluss ist oder nicht.
Oder steh ich grad aufm Schlauch?

Zitat von biby90:

aber jetzt gehts.

In welcher Reihenfolge denn nun?

[DeddyH]

Was ich meinte: der eine Spieler wurde korrekt gezählt, der andere nicht. Das lag eben am fehlenden begin und end. Das ein exit am Ende einer Routine wenig Sinn macht und daher eine umgekehrte Reihenfolge besser ist sehe sogar ich ein

[biby90]

Die du vorgeschlagen hast....

Delphi-Quellcode:

procedure TForm1.CountClick;
begin
  if CheckForWin(GBuffer) then
  begin
    Exit;
  end;
  if GPlayer = 1 then
  begin
    i := i +1;
    Label14.Caption := IntToStr(i);
  end else
    j := j +1;
    Label13.Caption := IntToStr(j);
end;

[DeddyH]

Und Label13.Caption stimmt? Kann ja irgendwie nicht sein.

[Neutral General]

Achtung!

Delphi-Quellcode:

if CheckForWin(GBuffer) then
begin
  Exit;
end;
if GPlayer = 1 then
begin
  i := i +1;
  Label14.Caption := IntToStr(i);
end else
  j := j +1;
  Label13.Caption := IntToStr(j);

=

Delphi-Quellcode:

if CheckForWin(GBuffer) then
begin
  Exit;
end;

if GPlayer = 1 then
begin
  i := i +1;
  Label14.Caption := IntToStr(i);
end 
else
  j := j +1;

Label13.Caption := IntToStr(j); // nicht mehr im ELSE (!)

[Butch87]

Und es fehlt immernoch das Begin und End

Delphi-Quellcode:

procedure TForm1.CountClick;
begin
  if CheckForWin(GBuffer) then
  begin
    Exit;
  end;
  if GPlayer = 1 then
  begin
    i := i +1;
    Label14.Caption := IntToStr(i);
  end 
  else
  BEGIN // hier
    j := j +1;
    Label13.Caption := IntToStr(j);
  END // und hier
end;

@Neutral: Darauf hamm wir schon des öfteren hingewiesen

[biby90]

Ach mensch hab übersehen dass er mir den gewinner jetzt nicht mehr anzeigt... aber sonst isses schonmal richtig... also er hört ja jetzt koplett dann auf zu zählen wenn jemand gewonnen hat

[DeddyH]

Langsam komme ich mir veralbert vor

[biby90]

Wieso?
Das klappt doch jetzt... Nur dass ich jetzt nochmal was nachsehen muss. und dass er den gewinner nicht mehr anzeigt hatte ja nichts mit dem Begin und End zu tun.