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