Hilfe bei Thema Klassen und Vererbung gesucht

[condor]

HI,
kann mir jemand per ICQ bei einer Hausaufgabe helfen? Es geht um Vererbung und Klassen.
Ich habe schon die Grundstruktur des Programm geschrieben, aber irgendwie läuft das noch nicht. Ich habe wohl vergessen ein paar Anweisungen mit einenader zu verknüpfen

[Balu der Bär]

Stelle deine Fragen doch einfach hier, irgendjemand wird dir sicherlich helfen könnten und jemand der später dasselbe Problem hat findet auch eine Lösung.

[condor]

ok, da ist der code: http://people.freenet.de/karararara/h.txt

ich will ihn mal nicht reinkopieren und ihn googletauglich machen wer weiß, ob mein lehrer nicht vorbeikommt

[condor]

mein problem ist, dass da beispielsweise gar nichts angezeit wird, wenn ich button1 klicke

[DocE]

Das Problem ist folgendes:

In TWorld.Create schreibst Du

height:=round((7 div 10)*raster*size); 1. (7 div 10) ist immer 0, und 0 * irgendwas ist wieder 0, damit ist die höhe immer 0!
2. in SetSize von TWorld fehlen die Klammern, ändert aber nichts am 0 Ergebnis, weil er jetzt 7 durch eine noch größere Zahl dividiert:

height:=round(7 div 10*raster*size); Richtig wäre:

height := round( (7 / 10) * raster * size); Der gleiche Fehler exisitiert vermutlich auch in den anderen Typen.


Grüsse
...Doc

[3_of_8]

Wozu Klammern? Es wird doch sowieso von links nach rechts gerechnet.

[DocE]

Ich traue dem Braten nie so richtig... Lieber eine Klammer zuviel als zuwenig, aber von mir aus können die Klammern auch weggelassen werden, wenn's klappt. Ändert aber nichts daran, dass das div durch ein / ersetzt werden muss.

[condor]

in zeile 97 tritt eine zugriffsverletzung auf:

Delphi-Quellcode:

procedure Tworld.setsize(size: Integer);
var raster:integer;
begin
Fsize:=size;                 //da
raster:=round(size / 50);       
width:=raster*size;
height:=round(7 / 10*raster*size);
end;

[mkinzler]

Besteht den schon eine Instanz?

[condor]

sorry, ich bin anfänger!! was ist eine instanz? soll ich den code in rar packen? würde euch das mehr helfen?