Auch huhu.
Verschiebe mal deine Intervallschaltung an das Ende der Schleife:
Delphi-Quellcode:
with StringGrid1 do
begin
RowCount := Round(dehnung / intervall);
dehnung := 0;
for i := 1 to Pred(rowcount) do
begin
Cells[0, i] := FloatToStr(dehnung);
// dehnung := dehnung + intervall;
Epot := (1 / 2 * D) * Sqr(dehnung);
Cells[1, i] := FloatToStr(Epot);
dehnung := dehnung + intervall;
end;
end;
Grüße vom marabu