क्या बाइट्स खोजने के लिए कोई "Pos" फ़ंक्शन है?

Question

var 
    FileBuff: TBytes; 
    Pattern: TBytes; 
begin 
    FileBuff := filetobytes(filename); 
    Result := CompareMem(@Pattern[0], @FileBuff[0], Length(Pattern)); 
end; 

वहाँ किसी भी समारोह में इस तरह के

Result := Pos(@Pattern[0], @FileBuff[0]); 

Answer 1

मैं इस यह करता है लगता है:

function BytePos(const Pattern: TBytes; const Buffer: PByte; const BufLen: cardinal): PByte; 
var 
    PatternLength: cardinal; 
    i: cardinal; 
    j: cardinal; 
    OK: boolean; 
begin 
    result := nil; 
    PatternLength := length(Pattern); 
    if PatternLength > BufLen then Exit; 
    if PatternLength = 0 then Exit(Buffer); 
    for i := 0 to BufLen - PatternLength do 
    if PByte(Buffer + i)^ = Pattern[0] then 
    begin 
     OK := true; 
     for j := 1 to PatternLength - 1 do 
     if PByte(Buffer + i + j)^ <> Pattern[j] then 
     begin 
      OK := false; 
      break 
     end; 
     if OK then 
     Exit(Buffer + i); 
    end; 
end; 

Answer 2

के रूप में अपने स्वयं के लिखें है। केवल एक बाइट की तलाश करते समय कोई अनुकूलन नहीं किया जा सकता है, इसलिए आपको जो भी कार्यान्वयन मिलेगा वह मूल रूप से वही काम करेगा।

ब्राउज़र में लिखा:

function BytePos(Pattern:Byte; Buffer:PByte; BufferSize:Integer): Integer; 
var i:Integer; 
begin 
    for i:=0 to BufferSize-1 do 
    if Buffer[i] = Pattern then 
    begin 
     Result := i; 
     Exit; 
    end; 
    Result := -1; 
end;