kleines Prob

Halloweenracer · 24. Mai 2006

huhu,

hm hab nen programm, wo ich die Dehung in m und die Energie in nm in eine Tablle schreiben lasse...

aber ich habe in der Zelle 0m den wert drin, der eigendlich bei der zelle mit 1m stehen müsste...

aknn mir da wer fix nen tipp geben, wie ich das ändern kann, sodass das passt?

hab die files mal hochgeladen... einfach ma die exe starten und dann seht ihr das denk ich mal

danke schonmal für jede hilfe

hier der link zur dpr und exe und co

klick

hier der quelltext:

Code:

procedure TForm1.FormCreate(Sender: TObject);
begin

with Stringgrid1 Do begin

Cells[0,0]:='Dehnung in m';
Cells[1,0]:='Energie in Nm';
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
D,dehnung,Epot,intervall:real;
i,code:integer;
begin
VAL (form1.Edit1.Text,D,code);
VAL (form1.Edit2.Text,dehnung,code);
VAL (form1.Edit3.Text,intervall,code);

with stringgrid1 do begin

rowcount:=round(dehnung/intervall);

dehnung:=0;

for i:=1 to rowcount -1 do begin

cells[0,i]:=floattostr(dehnung);
dehnung:=dehnung+intervall;

Epot:=(1/2*D)*sqr(dehnung);
cells[1,i]:=floattostr(Epot);



end; 
end;
end;

Anzeige

Jason45 · 24. Mai 2006

was hat intervall am anfang für einen wert? liegt es daran?

Halloweenracer · 25. Mai 2006

naja das intervall gibt ja nur die zeilenabstände an...

wenn du verstehst, was ich meine... damit hats leider nix zu tun

mfg halloween

Halloweenracer · 26. Mai 2006

also hab das prob gelöst bekommen...

Code:

dehnung:=dehnung+intervall;

das musste ans ende der for-schleife...

denn der sollte ja in der ersten zeile schon was machen, demzufolge konnte ich nicht den wert schon, bevor er ihn benutzt hatte, ums 1 hochsetzen...

mfg halloween

-closed-

Nützliche Suchen

kleines Prob

Videos zum Themenbereich