Zitat von
m2zer0:
Delphi-Quellcode:
...
gueltig:=true;
for iX := r.Left to r.Right do //Hier müsste
for iY := r.Top to r.Bottom do //noch etwas geändert
if (arr2[iX,iY]='k') then gueltig := false; //werden, nur was?
Es ist das Feld um das Schiff, damit man die Schiffe nicht direkt aneinander oder ineinander Platzieren kann.
Die Platzierung wird in eine If-Abfrage gesetzt (if gueltig then), nur im Moment bin ich ein klein wenig verwirrt. :^)
Ich weiß nicht ob ich dich richtig verstehe, aber ich glaube du hättest gerne sowas:
Delphi-Quellcode:
...
gueltig:=true;
for iX := r.Left to r.Right do
for iY := r.Top to r.Bottom do
if not(arr2[iX,iY]='*') then gueltig := false; //wenn auf dem Feld ein Schiff irgendeiner Art ist (in deinem Beispiel gingen nur k-Schiffe), wird gueltig auf false gesetzt