Schiffe versenken - verhindern von überlappen der schiffe

[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?

[Bummi]

@DeddyH

Code ist in #1 .... Großbaustelle ....

[basti500]

Ja ich versteh was gemeint ist nur ich kann mit deddyH's vorschlag nicht viel anfangen weil es schwer ist an meine komponenten anzugleichen

[DeddyH]

Was denn für Komponenten? Ich verwende doch überhaupt keine.

[FlyorCry]

Ich glaube er meint dass er nicht weis wie er deinen Vorschlag an seine Komponenten anknüpfen soll