projekt stürzt ab

[jochen22]

hallo delphipraxis,

ich beschäftige mich zurzeit mit Klassen und Objekten. Ich habe nun ein komplexes Programm geschrieben:

Wen ich es compiliere stürzt das programm gleich ab wieso??

mfg

[Zacherl]

Irgendeine Fehlermeldung wäre nützlich.

[Die Muhkuh]

Delphi-Quellcode:

AnzBeine:=0;
SetLength(Beine,AnzBeine);
Beine[0]:=Zylinder;
Beine[1]:=Zylinder;
Beine[2]:=Zylinder;
Beine[3]:=Zylinder;

Siehste das Problem? :zwinker:

[jochen22]

nein leider nicht kannst du es erklären bitte?

[OG Karotte]

Delphi-Quellcode:

AnzBeine:=0;
SetLength(Beine,AnzBeine);
Beine[0]:=Zylinder;
Beine[1]:=Zylinder;
Beine[2]:=Zylinder;
Beine[3]:=Zylinder;

Wieviel Elemente sollen es denn sein :zwinker:

Wald, Bäume und so

[Die Muhkuh]

Schau mal, wie viel Elemente wohl in Beine sein können.

[jochen22]

AnzBeine:=4;
Prisma:=TPrisma.Create(1,3,5);
Zylinder:=TZylinder.Create(3,7,8);

SetLength(Beine,AnzBeine);
Beine[0]:=Zylinder;
Beine[1]:=Zylinder;
Beine[2]:=Zylinder;
Beine[3]:=Zylinder;


Tisch:=TTisch.Create(AnzBeine,Prisma,Beine);
writeln('Die gesamte Masse beträgt ',Tisch.Gewicht:8:2,' kg');
readln;

end.

so siehts nun aus und es läuft nicht!!

[Die Muhkuh]

Lauf mal mit dem Debugger durch und schaue, wo es das Programm raus haut.

[jochen22]

also das programm kackt hier ab:

Delphi-Quellcode:

function TTisch.Gewicht:real;
 var
 i:integer;
 x:real;
begin
Result:=0;
x:=0;
for i:=0 to AnzBeine do
begin
x:=x+Beine[i].Gewicht;
end;
x:=x+Platte.Gewicht;
Result:=x;
end;

wen ich zb:


writeln('Die gesamte Masse beträgt ',Zylinder.Gewicht:8:2,'kg');
readln;
mache dan läufts einwandfrei!!!

[Die Muhkuh]

Zitat:

Zitat von jochen22

also das programm kackt hier ab:

Gut, dann musst noch herausfinden, warum es dort abkackt ;)