I am SkyJacker,I need you help for the benchmark in BasmForBeginner.
First,sorry my poor English.
I am a Chinese programmer, I'm translating your BasmForBeginner-en.doc to Chinese。
I called it BasmForBeginner-cn.doc
I have finished its draft, but I need the full function about the benchmark to understand your meaning.
like these:
var
Starttime, Endtime, Runtime : TDateTime;
I, LoopResult : Integer;
RunTimeSec, NoOfLoopsPerSec, NoOfLoops, ClockCount, LoopEnd2Float, LoopEndFloat, LoopStartFloat : Double;
begin
Starttime := Time;
for I := 1 to LOOPEND2 do
begin
LoopResult := ForLoopNoLoopInverNoName(LOOPSTART, LOOPEND);
end;
Endtime := Time;
Runtime := Endtime - Starttime;
CEdit.Text := IntToStr(LoopResult);
RuntimeEdit4.Text := TimeToStr(Runtime);
RunTimeSec := RunTime*24*60*60;
LoopEnd2Float := LOOPEND2;
LoopEndFloat := LOOPEND;
LoopStartFloat := LOOPSTART;
NoOfLoops := LoopEnd2Float * (LoopEndFloat - LoopStartFloat);
NoOfLoopsPerSec := NoOfLoops / RunTimeSec;
ClockCount := CLOCK / NoOfLoopsPerSec;
ClockCountEdit4.Text := FloatToStrf(ClockCount, ffFixed, 9, 1);
end;
Can you provide the form version for me? suchs as .dfm,.pas and so on.
Thank you very much.
Best regards
SkyJacker
Msn&Email: HeMiaoYu@gmail.com
http://www.cnpack.org/index.php?lang=en
CnPack Team is made up of Chinese Programmers and Delphi / C++ Builder fans across the Internet.
It's an Open Source organizition.
)：