Registriert seit: 1. Mai 2004
23 Beiträge
|
Bitte helfen: WIeos setzt er hier nur 8 stadt 9 feldern?
7. Jul 2004, 06:46
Delphi-Quellcode:
// Hier werden die Grundzüge des Spiels niedergelegt, Abwechselndes
// Setzen, Fehlermeldung etc.
procedure TForm1.XoderO(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var senderImage : TImage;
PX : Integer;
PY : Integer;
TMP : string;
begin
senderImage := ( Sender as TImage );
tmp := IntToStr( senderImage.Tag );
if ( length( tmp ) > 1 ) then begin
pX := StrToInt( copy( tmp, 1, 1 ) );
pY := StrToInt( copy( tmp, 2, 1 ) );
end
else begin
pX := 0;
pY := StrToInt( tmp );
end;
if ( GameBoard[ pX, pY ] = ftNone ) then
begin
// Hier wird X und O abwechselnt gesetzt
if ( bMovePlayerX ) then
begin
senderImage.Picture := ImageX.Picture;
GameBoard[ pX, pY ] := ftX;
end
else
begin
senderImage.Picture := ImageO.Picture;
GameBoard[ pX, pY ] := ftO;
end;
bMovePlayerX := not bMovePlayerX;
end
else
// Ist X oder O schon gesetzt erscheint eine Fehlermeldung
begin
ShowMessage('Dieser Platz ist belegt bitte anderen Wählen');
end;
Hat einer eine Idee, bei einem feld bekomme ich immer angezeigt '' Dieses Feld ist belegt''
|
|
Zitat
|