Problem bei Abspielen eines Sounds und verhindern von überlappen von Schiffen :(

[IceBube]

Hallo!

Anscheinend hast du Stringgrid2.SelectCell die Procedure Stringgrid1.SelectCell zugewiesen!

Da du eh mit einem Array arbeitest, kannst du vorher überprüfen ob die Felder/das Feld bereits besetzt ist!

Delphi-Quellcode:

var
 besetzt : Boolean;

besetzt := FALSE;

for I := 0 to Ende do
 if (playerfield[x, y] = 'x') then Besetzt := TRUE;

//Abfrage
if besetzt Then
begin
 showMessage('Feld belegt..');
 Exit;
end ELSE
//setzen

lg