[madMonia]

Сообщение от Bargest

Сомневаюсь.

Да не вопрос, я просто паскалевский код позекс взял чтоб потроллеть

Жаль что у них паскалевский вариант слабоват, не так смешно получилсоь.
Ну вот типо, чемпионка мира и окресностей номер два

Код:

function Search(Const Arr, SubArr: Array Of Byte; Offset: Integer = 0): Integer;
var
  SubStr: AnsiString;
  Str: AnsiString;
begin
  SetString(SubStr,PChar(@SubArr[Low(SubArr)]),Length(SubArr));
  SetString(Str,PChar(@Arr[Low(Arr)]),Length(Arr));

  Result :=System.Pos(SubStr, Str, Offset + 1 - Low(Arr)) - 1 + Low(Arr);
end;