|
Registriert seit: 23. Jan 2008
3.686 Beiträge
Delphi 2007 Enterprise
|
AW: Boolean fehler
27. Mär 2011, 04:22
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
const
K = 0.00127323954473; // ~= 4 / (PI*1000)
var
a: integer;
begin
memo1.Clear;
for a := 0 to j do
memo1.Lines.add(FloatToStr((Volumenstrom*K)/StrToInt(d[a])));
end;
Edit: Hallo roter Kasten, hallo Luckie 
Edit2: An der Formel bissl gedreht. Weitgehend Kosmetik.
"When one person suffers from a delusion, it is called insanity. When a million people suffer from a delusion, it is called religion." (Richard Dawkins)
Geändert von Medium (27. Mär 2011 um 04:31 Uhr)
|