Re: Fastcode UpperCase B&V 3.0

Hi

I had to cut the test down a little to be able to finish it today.

I remove the SSE3 function from the test by changing
FunctionSelectionRadioGroup.Items.Count-1 to
FunctionSelectionRadioGroup.Items.Count-2.

procedure TMainForm.Button2Click(Sender: TObject);
var
I1, I2, J : Integer;

begin
Button2.Caption := 'Running';
Update;
for J := 1 to 3 do
begin
for I1 := 10 to FunctionSelectionRadioGroup.Items.Count-1 do
begin
FunctionSelectionRadioGroup.ItemIndex := I1;
BenchmarkButtonClick(nil);
Update;
end;
for I2 := FunctionSelectionRadioGroup.Items.Count-1 downto 10 do
begin
FunctionSelectionRadioGroup.ItemIndex := I2;
BenchmarkButtonClick(nil);
Update;
end;
end;
Button2.Caption := 'Done';
end;

Regards
Dennis


.

Quantcast