|
Registriert seit: 16. Jan 2004
Ort: Bendorf
5.219 Beiträge
Delphi 10.2 Tokyo Professional
|
AW: tic tac toe.... mal wieder:) versteh aufgabestellung nicht ganz
26. Aug 2011, 09:52
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 (!)
Michael "Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."
|