Re: Fastcode CharPosRev B&V 0.5.0

Hi

Modified to give a 4 to 1 matchratio

procedure TMainForm.FillSubBenchmark2StringArrays;
var
CharNo : Cardinal;
Str : AnsiString;
StrLen, StrNo, MatchIndex, I : Integer;
FillChar : Char;

begin
SetLength(SubBench2StrArray, NOOFSTRINGSSUBBENCH2);
//Always match at SEARCHCHARSUBBENCH2 = F
for StrNo := 0 to NOOFSTRINGSSUBBENCH2-1 do
begin
StrLen := Random(MAXSTRLENSUBBENCH2);
SetLength(Str, StrLen);
if StrLen > 0 then
begin
for CharNo := 1 to StrLen do
begin
FillChar := Char(Random(254)+1);
if FillChar <> SEARCHCHARSUBBENCH2 then
Str[CharNo] := FillChar
else
Str[CharNo] := 'X';
end;
I := Random(MaxInt);
if I mod 4 <> 0 then//Do not always insert MatchChar
begin
MatchIndex := Random(StrLen-1)+1;
Str[MatchIndex] := SEARCHCHARSUBBENCH2;
end;
SubBench2StrArray[StrNo] := Str;
end;
end;
end;

Best regards
Dennis Kjaer Christensen

----------------------------------------------------------------------------
----
Jeg beskyttes af den gratis SPAMfighter til privatbrugere.
Den har indtil videre sparet mig for at få 5740 spam-mails
Betalende brugere får ikke denne besked i deres e-mails.
Hent en gratis SPAMfighter her.


.