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

Irgendeine Fehlermeldung wäre nützlich.

markieren

Delphi-Quellcode:

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

Siehste das Problem?

nein leider nicht kannst du es erklären bitte?

markieren

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

Wald, Bäume und so

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

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!!

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

also das programm kackt hier ab:

zusammenfalten · markieren

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!!!

Zitat von jochen22:

also das programm kackt hier ab:

Gut, dann musst noch herausfinden, warum es dort abkackt