Na die Frage ist wie sollen deine Schiffe Repräsentiert werden.
Wenn ich mir deinen Source so ansehe willst du wohl jedem Schiff eine Nummer geben :
Zitat:
SpielfeldIntern :array[1..COLS, 1..ROWS] of integer;
Dann Überleg dir doch erst mal wie du deine "Schiffe" zeichnest.
Der Einfachste weg wäre ja einfach ein Grid zu malen.
Dann würde ich sagen SpielfeldIntern[x,y] = 0 = Kein Schiff da
und bei SpielfeldIntern[x,y] <> 0 malst du erst mal irgendwas so, dass man erkennt dass das Feld belegt ist.
Und dann gehts weiter ..