AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Schiffe versenken (zum XX-ten Mal :3 )

Ein Thema von Grayknife · begonnen am 18. Feb 2015 · letzter Beitrag vom 27. Mär 2015
 
Grayknife

Registriert seit: 13. Feb 2015
Ort: Hessen
26 Beiträge
 
#6

AW: Schiffe versenken (zum XX-ten Mal :3 )

  Alt 19. Feb 2015, 07:25
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

Geändert von Grayknife (19. Feb 2015 um 07:32 Uhr)
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 08:34 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz