ANTICHAT — форум по информационной безопасности, OSINT и технологиям

function PosCount(const Substr, Str: string): Integer;
var
  i, p: Integer;
  s: string;
begin
  s := Str;
  Result := 0;
  for i := 1 to Length(s) do
  begin
    p := Pos(Substr, s);
    if p <> 0 then Inc(Result);
    Delete(s, 1, p);
  end;
end;

function mPosCount(const Substr, Str: string): Integer;
var
  s: pchar;
  len: integer;
  sublen: integer;
begin
  s := @str[1];
  sublen := length(substr);
  len := length(str) - sublen + 1;
  result := 0;
  while len > 0 do
  begin
    if CompareMem(s, @substr[1], sublen) then
    begin
     inc(result);
     len := len - sublen;
     s := s + sublen;
    end
    else
    begin
      dec(len);
      inc(s);
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 x:integer;
 s1,s2:string;
 start, stop:dword;
 cnt:integer;
begin
 s1 := 'dfgdfklgjkfdg8fdg8f0dg09g0f9d0g';
 s2 := '';
 for x:=1 to 20000 do s2:=s2+s1;
 start := GetTickCount;
 cnt := mPosCount(s1, s2);
 stop := GetTickCount;
 memo1.Lines.Add(inttostr(stop - start));
 memo1.Lines.Add('CNT: '+inttostr(cnt));

 start := GetTickCount;
 cnt := PosCount(s1, s2);
 stop := GetTickCount;
 memo1.Lines.Add(inttostr(stop - start));
 memo1.Lines.Add('CNT: '+inttostr(cnt));
end;

object Form1: TForm1
  Left = 0
  Top = 0
  BorderStyle = bsNone
  ClientHeight = 413
  ClientWidth = 549
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 0
    Top = 0
    Width = 549
    Height = 413
    Align = alClient
    Picture.Data = {код изображения}
    ExplicitWidth = 553
    ExplicitHeight = 378
  end
end

      0A544A504547496D616765B4090100FFD8FFE000104A46494600010101006000
      600000FFDB0043000503040404030504040405050506070C08070707070F0B0B