Schiffe versenken (zum XX-ten Mal :3 )

[Grayknife]

Ja ich weiß, tut mir Leid.. -.-"

vielleicht hätte ich mir auch einen Plan machen sollen <,<

Aber sonst wollt ihr auch immer, das wir das selber lösen, und das ist meine Lösung ;3

[DeddyH]

Schießen sich Planung und Eigeninitiative neuerdings gegenseitig aus? Wieso informiert mich niemand darüber?

[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?