Hilfe für Schiffe versenken

[krk1234]

Hey,
ich habe mir zum Ziel gesetzt das SPiel schiffe versenken mit delphi zu programieren.
Ich hänge gerade daran eine vernünftige Lösung für das Spielfeld zu finden. Ein Kumpel meint ich soll adas mit einem array machen, dieses Element/Funktion haben wir im UNttericht, der auch schjon etwas länger zurückliegt nie benutzt. KÖnnt ihr mir da vllt. weiterhelfen?.
mfg krk1234

[DeddyH]

Hallo und Willkommen in der DP ,

Array ist schon einmal ein guter Ansatz, dies muss allerdings 2-dimensional sein (Zeilen und Spalten). Also

Delphi-Quellcode:

var
  DeinArray: array[1..10, 1..10] of Datentyp;

Oder auch

Delphi-Quellcode:

type
  TZeile = array[1..10] of Datentyp;
  TSpielfeld = array[1..10] of TZeile;

var
  Spielfeld: TSpielfeld;

[krk1234]

Nocheinmal ne Frage zum array
Muss ich des einfach nur im Quellcode deklarieren oder gibt es da ein Element für?
Und wenn man es nur im Code deklariert ist, muss ich das dann über ne PAintbox oder ähnliches visualisieren?

[alfold]

Zitat von krk1234:

Nocheinmal ne Frage zum array
Muss ich des einfach nur im Quellcode deklarieren oder gibt es da ein Element für?
...?

Hatt doch @DeddyH schon geschrieben wie Du es machen kannst/sollst

Und Willkommen in der DP

Das Array dient zum ablegen der Koordinaten, und in Deiner graphischen umsetztung verwendest Du dann den Inhalt des Array um zu zeichnen.
Würde aber evtl dafür ein Grid nehmen als Anfänger, da hast Du schon Zeilen und Spalten

Wenn du dies dann umgesetzt hast kannst Du es mit richtiger Graphic schöner machen!

Gruss alfold

[hans ditter]

Hi und willkommen!

Du deklarierst das Array z.B. über Tform1 und erstellst dann noch eine Variable auf den neuen Datentypen:

Delphi-Quellcode:

type
  TDeinArray = array[1..10,1..10] of Datentyp;

  Form1 = TForm1(TForm)
    Button1: TButton
    //etc.
  end;

var
  DeinArray: TDeinArray;

Um zu visualisieren, was in dem Array steht, nimmst du dir z.B. ein StringGrid und legst innerhalb von zwei for-Schleifen das Array in dem Grid ab, z.B. so:

Delphi-Quellcode:

for i:= 0 to 10 do
begin
  for j:= 0 to 10 do
    StringGrid1.Cells[i,j]:=DeinArray[i,j]
end;

Hab den Code nicht getestet, sollte so aber funktionieren!

Versuchs einfach mal und wenn's dann noch nicht klappt, einfach nochmal melden.

LG; hans ditter

[DeddyH]

Und statt der Integer-Konstanten die Funktionen Low() und High() verwenden, dann kommt man auch nicht aus dem Array-Bereich heraus.
for i := Low(Array) to High(Array) do