Schiffe versenken - verhindern von überlappen der schiffe

[basti500]

Hallo,
Ich bin noch Anfänger und bin jetzt nicht sicher ob ich im richtigen Thread bin,
also in der Schule arbeiten wir selbstständig einem Schiffe versenken Programm.

Es läuft momentan soweit dass bei auswahl (Welches Schiff man möchte) die Kreuze gemacht werden.
Das Problem wo ich momentan nicht weiterkomme ist, zu verhindern dass sich die schiffe aufeinander setzen. z.B wenn ich einen Flugzeugträger positioniere sollte es nicht möglich sein dass sich die Schiffe überlappen wenn ich zum beispiel einen Flugzeugträger vor den vorherigen setze.

Ich hab das Programm beigefügt und hoffe jemand kann helfen.
Danke im Vorraus ; )

[DeddyH]

Gedanklicher Schnellschuss (passt ja irgendwie zum Thema ^^):
- ein 2-dimensionales Boolean-Array über das gesamte Spielfeld bilden und mit false füllen
- ist ein Schiff gesetzt, dessen Felder als belegt markieren
- bei weiteren Schiffen die Einzelfelder im globalen Array auswerten, ist eins davon true (=belegt), dann kann das neue Schiff so nicht gesetzt werden

P.S.: Willkommen in der DP

[basti500]

Ok danke fürs erste, ich versteh ungefähr deinen Gedankengang aber vielleicht hast könntest du mir nen kurzen Code Ansatz dafür geben weil bei mir scheiterts immer an der Umsetzung.

Wie fülle ich ein Array mit false???


danke!

[FlyorCry]

Ja d musst das Array nicht das Stringgrid auf False setzen.
MfG

[DeddyH]

Aus dem Stegreif:

Delphi-Quellcode:

var
  //Nehmen wir z.B. 10 x 10 Felder
  Spielfeld: array[0..9, 0..9] of Boolean;

//Schiff setzen -> Felder als belegt markieren
procedure SchiffSetzen(Felder: array of TPoint);
var
  i: integer;
begin
  for i := Low(Felder) to High(Felder) do
    Spielfeld[Felder[i].X, Felder[i].Y] := true;
end;

//Übergebene Felder auf belegt prüfen
function FelderFrei(Felder: array of TPoint): Boolean;
var
  i: integer;
begin
  Result := true;
  i := Low(Felder);
  while (i <= High(Felder)) and Result do
    begin
      Result := not Spielfeld[Felder[i].X, Felder[i].Y];
      inc(i);
    end;
end;

//Spielfeld komplett als frei markieren
procedure ClearSpielfeld;
var
  i, j: integer;
begin
  for i := Low(Spielfeld) to High(Spielfeld) do
    for j := Low(Spielfeld[i]) to High(Spielfeld[i]) do
      Spielfeld[i, j] := false;
begin

[himitsu]

Zitat von basti500:

Wie fülle ich ein Array mit false???

Blöder Gedanke:

Ich habe ein Schachbrett ... Wie fülle ich dort jedes Feld mit einem Geldstück?
> Genau, man geht (mit der Hand) zu allen Feldern und legt was rein.

Also in einer Schleife (2 Schleifen, da 2-dimensionales Array) über alle Felder und diese auf False setzen.

[FlyorCry]

Ich arbeite auch eben grade an diesem Programm aber jetzt habe ich noch folgendes Problem:
- Wenn ich ein Schiff ( z.B den Flugzeugträger der 5 Felder beansprucht) an den Rand (z.B unten) setze dann wird in dem Stringgrid oben die restlichen Teile des Schiffes eingeschrieben.
Habt ihr da ne Idee wie ich das vermeiden könnte?
Bin ja (noch) blutiger Anfänger

[DeddyH]

Wie sollen wir dazu etwas sagen, ohne den Code zu kennen?