Schiffe versenken (zum XX-ten Mal :3 )

[Grayknife]

Ich weiß jetzt nicht genau...

dann also einfach eine Frage:

Was passiert, wenn ich diese Prozedur aufrufe:

Delphi-Quellcode:

function Tform1.SchiffTesten1(Spalte,Reihe, Anz:Integer):Boolean;
var i,Ges:Integer;
begin
  Ges:=0;
 //...
  If (Spielfeld1[Spalte-1,Reihe]=0) then inc(ges); //vor dem Schiff?
  If (Spielfeld1[Spalte+Anz+1,Reihe]=0) then inc(ges); //Hinter dem schiff?

  If (Anz=4) and (Ges=17) then result:=True
  Else result:=False;
  // If Anz=3 and Ges=14...
  // If Anz=2 and Ges=11...

End;

und zwar mit dem Spaltenwert=0. Dann wird bei dem einen Aufruf 0-1 also -1 gerechnet. Das Array geht aber nur von 0-7. bricht er dann den Vorgang ab?
Denn wenn ich einfach ein kleines Testprogramm schreibe und auf einen Wert, der kleiner als 0 ist, zugreife, zeigt er mir eine Fehlermeldung an

[DeddyH]

Kommt darauf an: ohne Bereichsprüfung merkst Du nicht, dass Du auf irgendwelchen Schrott zugreifst. Bei aktivierter Bereichsprüfung bekommst Du eine Fehlermeldung.

[Grayknife]

Achso, selbstgeschriebene Prozeduren, testen also nicht, ob es den Bereich überhaupt gibt?

Also müsste ich noch eine(oder mehrere) Prozedur schreiben, wenn die Spalte bzw. die Zeile 0 ist? damit dort gar nicht über oder links neben dem Schiff abgefragt wird?

[DeddyH]

Eine einfache If-Abfrage vor dem Zugriff sollte genügen.

Delphi-Quellcode:

if Spalte > Low(Spielfeld1) then 
  If (Spielfeld1[Spalte-1,Reihe]=0) then inc(ges);

Das Gleiche dann äquivalent auf der anderen Seite.

[Grayknife]

Okey, und dieses low(Spielfeld1), gibt genau welchen wert an?

[DeddyH]

Guckst Du Hilfe

[Grayknife]

ok, jetzt kann jeder spieler 6 schiffe setzen mit verschiedener Größe, nur an Positionen die erlaubt sind. Cool

Jetzt wollte ich theoretisch einfach die Zahlen durch Bilder ersetzen, aber ich habe keinen Plan wie ich das machen soll Wenn ich zum beispiel mit canvas eine Bitmap grafik in das stringgrid einfügen möchte, verschwindet das sofort wieder >.< . Kann ich das auch noch anders lösen? (wie sieht es mit drawgrid aus? ist das anders? habe auch gelesen einfach ein riesiges TImage machen?)