Veränderung des Codes während der Laufzeit

[Devstructor]

Da du das ganze im Array hast, können dir Tags doch egal sein?

Wenn der Computer ein Schiff im 2 dimensionalen Array aussuchen soll, dann mach doch einfach 2 Zufallszahlen. Eine für den x-Wert, die andere für den y-Wert.

[Mathias]

Ich habe da noch ein Muster, dies wäre eine Alternative gegenüber den Buttons.
Man beachte die Array Feld, die zeigt den Status der Felder.
Im richtigen Spiel, wird die Array 2x gebraucht, einmal für dich und einmal für den Gegner.
Die Array kann natürlich noch um weiter Zustände des Feldes erweitert werden, da diese ein Record enthält.

In der DrawGrid, kannst anstelle der Rechtecke auch Bitmaps reinkopieren.

[Minits]

Danke für die Datei, aber ich glaube dir hilft mir grad nicht weiter.
Bezüglich der Koordinaten habe ich Folgendes geschrieben:

procedure TForm1.B_gegnerClick(Sender: TObject);
var
zufall_x,zufall_y: INTEGER;
begin
zufall_y:=random(5)+5;
zufall_x:=random(10);
if Spielfeld[zufall_y div max.x,zufall_x mod max.x].NumGlyphs=1 then close;

Das close ist natürlich nur als Test, aber auch wenn ich showmessage oder Ähnliches eingebe, dann kriege ich immer die Nachricht, dass immer ein Feld mit einem Bild getroffen wurde, obwohl das nicht der Fall ist.

[Mathias]

Wieso machst das nicht so ?

Code: Alles auswählen

procedure TForm1.B_gegnerClick(Sender: TObject);
var
  zufall_x,zufall_y: INTEGER;
begin
  zufall_y:=random(10);
  zufall_x:=random(10);
  if Spielfeld[zufall_x ,zufall_y].NumGlyphs = 1 then close;

Oder fängt deine Array nicht bei x0,y0 an ?

[Mathias]

So sieht das in etwa aus mit der Zufalls-Erzeugung.
Fehlt nur noch das abknallen der Schiffe.