Re: Fastcode UpperCase B&V 3.0

Hi

To investigate this possible problem

> We must also make sure that there is no problem regarding precision in
> "Bechmark" versus "Benchmark All".

I recoded the bench test eventhandler to this

procedure TMainForm.BenchTestButtonClick(Sender: TObject);
var
I1, I2 : Cardinal;

begin
BenchTestButton.Caption := 'Running';
Update;
for I1 := 0 to FunctionSelectionRadioGroup.Items.Count-1 do
begin
FunctionSelectionRadioGroup.ItemIndex := I1;
BenchmarkButtonClick(nil);
BenchmarkAllButtonClick(nil);
Update;
end;
BenchTestButton.Caption := 'Bench Test';
end;

Regards
Dennis


.

Quantcast