1:
2:
3:

function Compare(o1,o2:Pointer):Integer;
begin
CompareText(TOrdner(o1).FName,TOrdner(o1).FName);                    

1:
2:
3:
4:

function Compare(o1,o2:Pointer):Integer;
begin
Result:=TOrdner(o1).FNameL-TOrdner(o1).FNameL;
If(Result=0) then CompareText(TOrdner(o1).FName,TOrdner(o1).FName);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

var lcomp:Integer;
    p1,p2:Pointer;
begin
//l ist die Länge
p1:=Ptr(String1); //richtig so?
p2:=Ptr(String2);
lcomp:=0;
while(lcomp+4<=l) do begin //so weit wie möglich 4B-Weiser vergleich
Result:=PInteger(p1)-PInteger(p2);
If(Result<>0) then exit;
Inc(p1,4);Inc(p2,4);Inc(lcomp,4);
end;
while(lcomp+1<=l) do begin //rest dann byteweise
Result:=PByte(p1)-PByte(p2);
If(Result<>0) then exit;
Inc(p1);Inc(p2);Inc(lcomp);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:

function CompStr(const String1,String2:String;const l:Integer):Integer;
var lcomp:Integer;
    p1,p2:Cardinal;
begin
//l ist die Länge
p1:=Cardinal(Pointer(String1)); //richtig so?
p2:=Cardinal(Pointer(String2));
lcomp:=4;
if(lcomp<=l) then begin //so weit wie möglich 4B-Weiser vergleich
  Repeat
    Result:=PInteger(p1)^-PInteger(p2)^;
    If(Result<>0) then exit;
    If(lcomp=l) then exit;
    Inc(p1,4);Inc(p2,4);
    Inc(lcomp,4);
    If(lcomp>l) then begin
      Dec(lcomp,4);
      break;
    end;
  Until false;
end else lcomp:=0;
  Inc(lcomp);
  Repeat
    Result:=PByte(p1)^-PByte(p2)^;
    If(Result<>0) then exit;
    If(lcomp=l) then exit;
    Inc(p1);Inc(p2);
    Inc(lcomp);
  Until false;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  freq,startTime,endTime: Int64;
  i:Integer;
  s1,s2,s3,s4,s5,s6:String;
  l1,l2,l3,l4,l5,l6:Integer;
  arrayB:Integer;
  b:Integer;
begin
  Memo1.Clear;
  s1:='Btdfu%&6554787BGHBtzbTuzGT';
  s2:='Btdfu%&6554787BGHBtzbTuzGT';
  s3:='Btdfu%&6554787BGHBtzbTuzG';
  s4:='Btdfu%&6554787BGHBtzbTuzGA';
  s5:='Btdfu%&6554787BGHBtzbTuzGt';
  s6:='Atdfu%&6554787BGHBtzbTuzGt';
  l1:=Length(s1);
  l2:=Length(s2);
  l3:=Length(s3);
  l4:=Length(s4);
  l5:=Length(s5);
  l6:=Length(s6);
  arrayB:=0;
  QueryPerformanceFrequency(freq);
  QueryPerformanceCounter(startTime);

  //Befehlesfolge deren Zeitdauer bestimmt werden soll
  for i:=0 to 9999999 do begin
    b:=l1-l2;
    if(b=0) then b:=CompStr(s1,s2,l1);
    b:=l1-l3;
    if(b=0) then b:=CompStr(s1,s3,l1);
    b:=l1-l4;
    if(b=0) then b:=CompStr(s1,s4,l1);
    b:=l1-l5;
    if(b=0) then b:=CompStr(s1,s5,l1);
    b:=l1-l6;
    if(b=0) then b:=CompStr(s1,s6,l1);
  end;

  QueryPerformanceCounter(endTime);

  Memo1.Lines.Add('1.Variante: ' + IntToStr((endTime - startTime) * 1000 div freq) + 'ms');
  Memo1.Lines.Add(inttostr(arrayB));

  arrayB:=0;
  QueryPerformanceFrequency(freq);
  QueryPerformanceCounter(startTime);

  //Befehlesfolge deren Zeitdauer bestimmt werden soll
  for i:=0 to 9999999 do begin
    b:=CompareText(s1,s2);
    b:=CompareText(s1,s3);
    b:=CompareText(s1,s4);
    b:=CompareText(s1,s5);
    b:=CompareText(s1,s6);
  end;

  QueryPerformanceCounter(endTime);

  Memo1.Lines.Add('2.Variante: ' + IntToStr((endTime - startTime) * 1000 div freq) + 'ms');
  Memo1.Lines.Add(inttostr(arrayB));
end;                    

1:
2:
3:
4:

  b3 := CompareText(s1,s3); 
  for i:=0 to 9999999 do begin
    b:= b3;
  end;                    

1:

Function FastCompareStrings (Const s1, s2 : String) : integer;                    

1:
2:

    b:=l1-l2;
    if(b=0) then b:=FastCode ;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

Function FastCompare (Const s1, s2 : String) : Integer;
Var
  l1, i : Integer;

Begin
  l1 := Length(s1);
  Result := l1 - Length(s2);
  if Result=0 then
    For i := 1 to l1 do
      if s1[i]<>s2[i] then begin
        Result := Ord(s1[i])-Ord(s2[i]);
        Exit;
      End;
End;