16,747
社区成员




procedure TDCalcForm.TestSpeedBtnClick(Sender: TObject);
var
D : TDateTime;
i : integer;
f : Double;
begin
Self.Tag := 1;
D := Now();
f := 2904293742987491237.12;
for i := 1 to 100000000 do begin
f := f / (Tag + 0.1);
if D>0 then f := f + D;
if f<0 then Break;
end;
D := Now() - D;
Self.HisLabel1.Text := FormatDateTime('HH:MM:SS' , D) + ' ' + FloatToStr(f);
end;