1:
2:
3:

Item = record
  Id: String[4];
  Data: Pointer;                    

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:

function TW3gItemList.GetItemById(const AId: TItemId): TW3gItem;
  function FindInList(const AStart, AEnd: Integer; const AId: TItemId): TW3gItem;
  var
    I: Integer;
  begin
    Result := nil;
    if CompareText(Items[AStart].Id, AId) = 0 then
      Result := Items[AStart]
    else
    if CompareText(Items[AEnd].Id, AId) = 0 then
      Result := Items[AEnd]
    else begin
      if  (AStart <> AEnd)
      and ((AEnd - AStart) > 1) then begin
        I := (AStart + AEnd) div 2;
        if AId > Items[I].Id then
          Result := FindInList(I, AEnd, AId)
        else
          Result := FindInList(AStart, I, AId);
      end
      else
        {Abbrechen};
    end;
  end;
  
begin
  Result := nil;
  if Count > 0 then
    Result := FindInList(0, Count - 1, AId);
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:

function TW3gItemList.BinarySearch(const AId: TItemId;
  var AFound: Boolean): Integer;
  
  function FindInList(const AStart, AEnd: Integer): Integer;
  var
    I: Integer;
  begin
    if CompareText(Items[AStart].Id, AId) = 0 then begin
      Result := AStart;
      AFound := True;
    end
    else
    if CompareText(Items[AEnd].Id, AId) = 0 then begin
      Result := AEnd;
      AFound := True;
    end
    else begin
      if (AEnd - AStart) > 1 then begin
        I := (AStart + AEnd) div 2;
        if CompareText(Items[I].Id, AId) = 0 then begin
          Result := I;
          AFound := True;
        end
        else
        if AId > Items[I].Id then
          Result := FindInList(I, AEnd)
        else
          Result := FindInList(AStart, I);
      end
      else
        Result := AStart;
    end;
  end;
  
begin
  Result := -1;
  AFound := False;
  if Count > 0 then
    Result := FindInList(0, Count - 1);
end;                    

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

function GetIndex(Wert: String[4]; Liste: array of String): Integer;
var
   i, mi, le, ri  : Integer;
begin
   le := Start;
   ri := Ende;
   repeat
      mi    := (le+ri) div 2;
      if Wert<Liste[mi] then
         ri := mi - 1
      else
         le := mi + 1;           
   until (Wert=Liste[mi])or(le>ri);
   if Wert=Liste[mi] then
      Result   := mi
   else
      Result   := -1;
end;