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:

function FasterCharPos(c: Char; s: PChar; l:Integer): Integer;
Begin
  for Result := 1 to l do
    if s^ = c then Exit
    else Inc(s);
  Result := -1;
end;

//...
var buffer,buffer2:TDynByteArray;
    p,l,p2,l2,maxID,curID:Integer;
    curPos,curPos2:PChar;
//...
      curPos2:=PChar(@buffer2[0]);
      Inc(curPos2,1);
      l2:=length(buffer2) div 2 -1;
      //get IDs
      while(l2>0) do begin
        p2:=FasterCharPos(#9,curPos2,l2);
        if(p2<=0) then break;
        Inc(curPos2,p2);
        Dec(l2,p2);
        p2:=FasterCharPos(#9,curPos2,l2);
        if(p2<=0) then break;
        curID:=StrToIntDef(Copy(curPos2,1,p2),-1);
        if(curID>=0) then begin
          FIDTable[curID].typ:=typeMob;
          if(curID>maxID) then maxID:=curID;
        end;
        Inc(curPos2,p2+1);
        Dec(l2,p2+1);
        p2:=FasterCharPos(#$A,curPos2,l2);
        if(p2<=0) then break;
        Inc(curPos2,p2);
        Dec(l2,p2);
      end;					

1:
2:
3:
4:
5:
6:

  TIDEntry=record
    typ:Byte;
//kommt vl noch was dazu.
  end;
//...
    FIDTable:Array of TIDEntry;					

1:

Kommt auf die Umsetzung an. Wenn man da die Bytes vergleicht, geht das relativ schnell. Je nach Länge der IDs kann man das entsprechend optimieren.					

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

function getIDType(ID: Cardinal):Byte;
var i,l:Integer;
    sID:AnsiString;
begin
  if(ID<Cardinal(Length(FIDTable))) then begin
    sID:=AnsiString(IntToStr(ID));
    l:=Length(sID);
    for i := 0 to Length(FIDTable) - 1 do begin
      with FIDTable[i] do begin
        if(Length(ID)<>l) then continue;
        if(CompareMem(@ID[1],@sID[1],l)) then begin
          Result:=typ;
          exit;
        end;
      end;
    end;
  end;
  Result:=typeUK;//Typ unbekannt
end;					

1:
2:

        SetLength(curID,p2);
        Move(curPos2^,curID[1],p2*sizeOf(curID[1]));