亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

? 歡迎來到蟲蟲下載站！ | ?? 資源下載 ?? 資源專輯 ?? 關于我們
? 蟲蟲下載站

?? mainun.pas

?? 俄羅斯出品的一個高效字符串操作的函數單元
?? PAS
字號: 
unit MainUn;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, StdCtrls, ExtCtrls;

type
  TMainForm = class(TForm)
    StatusBar: TStatusBar;
    btnClose: TButton;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Button1_S: TButton;
    Button2_S: TButton;
    Button3_S: TButton;
    Button4_S: TButton;
    Button5_S: TButton;
    Button6_S: TButton;
    Button7_S: TButton;
    Button8_S: TButton;
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Button1_R: TButton;
    Button2_R: TButton;
    Button3_R: TButton;
    Button4_R: TButton;
    Button5_R: TButton;
    Button6_R: TButton;
    Button7_R: TButton;
    Button8_R: TButton;
    procedure FormCreate(Sender: TObject);
    procedure btnCloseClick(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure Button1_SClick(Sender: TObject);
    procedure Button2_SClick(Sender: TObject);
    procedure Button3_SClick(Sender: TObject);
    procedure Button4_SClick(Sender: TObject);
    procedure Button5_SClick(Sender: TObject);
    procedure Button6_SClick(Sender: TObject);
    procedure Button7_SClick(Sender: TObject);
    procedure Button8_SClick(Sender: TObject);
    procedure Button1_RClick(Sender: TObject);
    procedure Button2_RClick(Sender: TObject);
    procedure Button3_RClick(Sender: TObject);
    procedure Button4_RClick(Sender: TObject);
    procedure Button5_RClick(Sender: TObject);
    procedure Button6_RClick(Sender: TObject);
    procedure Button7_RClick(Sender: TObject);
    procedure Button8_RClick(Sender: TObject);
  private
    procedure AppIdle(Sender: TObject; var Done: Boolean);
    procedure Test1;
    procedure Test2;
    procedure Test3;
    procedure Test4;
    procedure Test5;
    procedure Test6;
    procedure Test7;
    procedure Test8;
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

uses ShareMem, ShareQmm;

{$R *.DFM}

var
  A: array[1..1000] of Pointer;

  StdAllocSize: Integer;
  IsStdManager: Boolean = False;
  Sequential: Boolean;

procedure TMainForm.AppIdle(Sender: TObject; var Done: Boolean);
begin
  QMemDecommitOverstock;
  StatusBar.Panels[0].Text := 'QMemTotalAllocated = '+IntToStr(QMemTotalAllocated);
  StatusBar.Panels[1].Text := 'System.GetAllocMemSize = '+IntToStr(StdAllocSize);
end;

const
  StdManager: TMemoryManager = (
    GetMem: SysGetMem;
    FreeMem: SysFreeMem;
    ReallocMem: SysReallocMem);
var
  QMemManager: TMemoryManager;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  GetMemoryManager(QMemManager);
  StdAllocSize := GetAllocMemSize;
  Application.OnIdle := AppIdle;
  Randomize;
end;

procedure TMainForm.btnCloseClick(Sender: TObject);
begin
  Close;
end;

procedure TMainForm.RadioButton1Click(Sender: TObject);
begin
  IsStdManager := False;
end;

procedure TMainForm.RadioButton2Click(Sender: TObject);
begin
  IsStdManager := True;
end;

procedure TMainForm.Test1;
var
  I,J,K: Integer;
  D: LongWord;
begin
  if IsStdManager then
    SetMemoryManager(StdManager);
  FillChar(A,SizeOf(A),0);
  D := GetTickCount;
  if Sequential then
    for I := 1 to 1000 do
      for J := 1 to 1000 do
      begin
        FreeMem(A[J]);
        GetMem(A[J],Random(10)+1);
      end
  else
    for I := 1 to 1000 do
      for J := 1 to 1000 do
      begin
        K := Random(1000)+1;
        FreeMem(A[K]);
        GetMem(A[K],Random(10)+1);
      end;
  D := GetTickCount-D;
  if IsStdManager then
  begin
    StdAllocSize := GetAllocMemSize;
    SetMemoryManager(QMemManager);
  end;
  ShowMessage('Array filled in '+IntToStr(D)+' ms');
  for J := 1 to 1000 do
    FreeMem(A[J]);
  StdAllocSize := GetAllocMemSize;
end;

procedure TMainForm.Test2;
var
  I,J,K: Integer;
  D: LongWord;
begin
  if IsStdManager then
    SetMemoryManager(StdManager);
  FillChar(A,SizeOf(A),0);
  D := GetTickCount;
  if Sequential then
    for I := 1 to 1000 do
      for J := 1 to 1000 do
      begin
        FreeMem(A[J]);
        GetMem(A[J],Random(100)+1);
      end
  else
    for I := 1 to 1000 do
      for J := 1 to 1000 do
      begin
        K := Random(1000)+1;
        FreeMem(A[K]);
        GetMem(A[K],Random(100)+1);
      end;
  D := GetTickCount-D;
  if IsStdManager then
  begin
    StdAllocSize := GetAllocMemSize;
    SetMemoryManager(QMemManager);
  end;
  ShowMessage('Array filled in '+IntToStr(D)+' ms');
  for J := 1 to 1000 do
    FreeMem(A[J]);
  StdAllocSize := GetAllocMemSize;
end;

procedure TMainForm.Test3;
var
  I,J,K: Integer;
  D: LongWord;
begin
  if IsStdManager then
    SetMemoryManager(StdManager);
  FillChar(A,SizeOf(A),0);
  D := GetTickCount;
  if Sequential then
    for I := 1 to 1000 do
      for J := 1 to 1000 do
      begin
        FreeMem(A[J]);
        GetMem(A[J],Random(1000)+1);
      end
  else
    for I := 1 to 1000 do
      for J := 1 to 1000 do
      begin
        K := Random(1000)+1;
        FreeMem(A[K]);
        GetMem(A[K],Random(1000)+1);
      end;
  D := GetTickCount-D;
  if IsStdManager then
  begin
    StdAllocSize := GetAllocMemSize;
    SetMemoryManager(QMemManager);
  end;
  ShowMessage('Array filled in '+IntToStr(D)+' ms');
  for J := 1 to 1000 do
    FreeMem(A[J]);
  StdAllocSize := GetAllocMemSize;
end;

procedure TMainForm.Test4;
var
  I,J,K: Integer;
  D: LongWord;
begin
  if IsStdManager then
    SetMemoryManager(StdManager);
  FillChar(A,SizeOf(A),0);
  D := GetTickCount;
  if Sequential then
    for I := 1 to 1000 do
      for J := 1 to 1000 do
      begin
        FreeMem(A[J]);
        GetMem(A[J],Random(4096)+1);
      end
  else
    for I := 1 to 1000 do
      for J := 1 to 1000 do
      begin
        K := Random(1000)+1;
        FreeMem(A[K]);
        GetMem(A[K],Random(4096)+1);
      end;
  D := GetTickCount-D;
  if IsStdManager then
  begin
    StdAllocSize := GetAllocMemSize;
    SetMemoryManager(QMemManager);
  end;
  ShowMessage('Array filled in '+IntToStr(D)+' ms');
  for J := 1 to 1000 do
    FreeMem(A[J]);
  StdAllocSize := GetAllocMemSize;
end;

procedure TMainForm.Test5;
var
  I,J,K: Integer;
  D: LongWord;
begin
  if IsStdManager then
    SetMemoryManager(StdManager);
  FillChar(A,SizeOf(A),0);
  D := GetTickCount;
  if Sequential then
    for I := 1 to 1000 do
      for J := 1 to 1000 do
      begin
        FreeMem(A[J]);
        GetMem(A[J],Random(10000)+1);
      end
  else
    for I := 1 to 1000 do
      for J := 1 to 1000 do
      begin
        K := Random(1000)+1;
        FreeMem(A[K]);
        GetMem(A[K],Random(10000)+1);
      end;
  D := GetTickCount-D;
  if IsStdManager then
  begin
    StdAllocSize := GetAllocMemSize;
    SetMemoryManager(QMemManager);
  end;
  ShowMessage('Array filled in '+IntToStr(D)+' ms');
  for J := 1 to 1000 do
    FreeMem(A[J]);
  StdAllocSize := GetAllocMemSize;
end;

procedure TMainForm.Test6;
var
  I,J,K: Integer;
  D: LongWord;
begin
  if IsStdManager then
    SetMemoryManager(StdManager);
  FillChar(A,SizeOf(A),0);
  D := GetTickCount;
  if Sequential then
    for I := 1 to 1000 do
      for J := 1 to 1000 do
      begin
        FreeMem(A[J]);
        GetMem(A[J],Random(5903)+4097);
      end
  else
    for I := 1 to 1000 do
      for J := 1 to 1000 do
      begin
        K := Random(1000)+1;
        FreeMem(A[K]);
        GetMem(A[K],Random(5903)+4097);
      end;
  D := GetTickCount-D;
  if IsStdManager then
  begin
    StdAllocSize := GetAllocMemSize;
    SetMemoryManager(QMemManager);
  end;
  ShowMessage('Array filled in '+IntToStr(D)+' ms');
  for J := 1 to 1000 do
    FreeMem(A[J]);
  StdAllocSize := GetAllocMemSize;
end;

procedure TMainForm.Test7;
var
  I,J,K: Integer;
  D: LongWord;
begin
  if IsStdManager then
    SetMemoryManager(StdManager);
  FillChar(A,SizeOf(A),0);
  D := GetTickCount;
  if Sequential then
    for I := 1 to 1000 do
      for J := 1 to 100 do
      begin
        FreeMem(A[J]);
        GetMem(A[J],Random(100000)+1);
      end
  else
    for I := 1 to 1000 do
      for J := 1 to 100 do
      begin
        K := Random(100)+1;
        FreeMem(A[K]);
        GetMem(A[K],Random(100000)+1);
      end;
  D := GetTickCount-D;
  if IsStdManager then
  begin
    StdAllocSize := GetAllocMemSize;
    SetMemoryManager(QMemManager);
  end;
  ShowMessage('Array filled in '+IntToStr(D)+' ms');
  for J := 1 to 100 do
    FreeMem(A[J]);
  StdAllocSize := GetAllocMemSize;
end;

procedure TMainForm.Test8;
var
  I,J,K: Integer;
  D: LongWord;
begin
  if IsStdManager then
    SetMemoryManager(StdManager);
  FillChar(A,SizeOf(A),0);
  D := GetTickCount;
  if Sequential then
    for I := 1 to 1000 do
      for J := 1 to 30 do
      begin
        FreeMem(A[J]);
        GetMem(A[J],Random(1000000)+1);
      end
  else
    for I := 1 to 1000 do
      for J := 1 to 30 do
      begin
        K := Random(30)+1;
        FreeMem(A[K]);
        GetMem(A[K],Random(1000000)+1);
      end;
  D := GetTickCount-D;
  if IsStdManager then
  begin
    StdAllocSize := GetAllocMemSize;
    SetMemoryManager(QMemManager);
  end;
  ShowMessage('Array filled in '+IntToStr(D)+' ms');
  for J := 1 to 30 do
    FreeMem(A[J]);
  StdAllocSize := GetAllocMemSize;
end;

procedure TMainForm.Button1_SClick(Sender: TObject);
begin
  Sequential := True;
  Test1;
end;

procedure TMainForm.Button2_SClick(Sender: TObject);
begin
  Sequential := True;
  Test2;
end;

procedure TMainForm.Button3_SClick(Sender: TObject);
begin
  Sequential := True;
  Test3;
end;

procedure TMainForm.Button4_SClick(Sender: TObject);
begin
  Sequential := True;
  Test4;
end;

procedure TMainForm.Button5_SClick(Sender: TObject);
begin
  Sequential := True;
  Test5;
end;

procedure TMainForm.Button6_SClick(Sender: TObject);
begin
  Sequential := True;
  Test6;
end;

procedure TMainForm.Button7_SClick(Sender: TObject);
begin
  Sequential := True;
  Test7;
end;

procedure TMainForm.Button8_SClick(Sender: TObject);
begin
  Sequential := True;
  Test8;
end;

procedure TMainForm.Button1_RClick(Sender: TObject);
begin
  Sequential := False;
  Test1;
end;

procedure TMainForm.Button2_RClick(Sender: TObject);
begin
  Sequential := False;
  Test2;
end;

procedure TMainForm.Button3_RClick(Sender: TObject);
begin
  Sequential := False;
  Test3;
end;

procedure TMainForm.Button4_RClick(Sender: TObject);
begin
  Sequential := False;
  Test4;
end;

procedure TMainForm.Button5_RClick(Sender: TObject);
begin
  Sequential := False;
  Test5;
end;

procedure TMainForm.Button6_RClick(Sender: TObject);
begin
  Sequential := False;
  Test6;
end;

procedure TMainForm.Button7_RClick(Sender: TObject);
begin
  Sequential := False;
  Test7;
end;

procedure TMainForm.Button8_RClick(Sender: TObject);
begin
  Sequential := False;
  Test8;
end;

end.

?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频
成人高清免费观看| 正在播放亚洲一区| 欧美亚洲日本国产| 欧美videossexotv100| 亚洲欧美一区二区三区孕妇| 日韩有码一区二区三区| 不卡欧美aaaaa| ww久久中文字幕| 天天av天天翘天天综合网色鬼国产| 国产高清无密码一区二区三区| 欧美日韩电影在线| 亚洲色欲色欲www| 东方aⅴ免费观看久久av| 日韩丝袜情趣美女图片| 亚洲一区二区三区小说| 99re热这里只有精品视频| 久久一区二区三区四区| 日本欧美一区二区在线观看| 欧美在线观看一区| 综合av第一页| 99久久99久久免费精品蜜臀| 久久九九影视网| 久久99精品久久久| 欧美一区日韩一区| 日韩综合在线视频| 欧美色视频在线观看| 一区二区三区日本| 色婷婷香蕉在线一区二区| 综合分类小说区另类春色亚洲小说欧美| 国产成人午夜99999| 久久综合九色综合欧美98| 蜜臀av性久久久久蜜臀aⅴ| 欧美日韩在线播放三区四区| 一区二区国产盗摄色噜噜| 91麻豆国产福利在线观看| 亚洲最快最全在线视频| 欧洲激情一区二区| 亚洲大片免费看| 911精品国产一区二区在线| 丝袜a∨在线一区二区三区不卡| 欧美日韩免费一区二区三区视频| 亚洲一区二区三区四区在线观看| 91精品办公室少妇高潮对白| 一片黄亚洲嫩模| 欧美日韩午夜在线| 日本aⅴ亚洲精品中文乱码| 日韩免费视频一区二区| 国模冰冰炮一区二区| 日本一二三不卡| 北条麻妃一区二区三区| 亚洲自拍偷拍麻豆| 制服视频三区第一页精品| 精久久久久久久久久久| 中文字幕精品在线不卡| 一本大道av一区二区在线播放| 夜夜亚洲天天久久| 日韩一级精品视频在线观看| 国产精品一二三| 亚洲人成7777| 欧美mv日韩mv国产| 成人深夜在线观看| 亚洲永久精品大片| 精品黑人一区二区三区久久| 成人动漫av在线| 亚洲成人一区二区| 国产三级一区二区三区| 色嗨嗨av一区二区三区| 久久av中文字幕片| 一区二区三区四区五区视频在线观看 | 精品精品国产高清一毛片一天堂| 国产在线看一区| 亚洲精品日韩专区silk| 欧美成人精品福利| 97久久精品人人做人人爽| 日韩高清电影一区| 中文字幕av一区 二区| 欧美日产在线观看| 成人美女视频在线看| 日本成人在线电影网| 国产精品毛片高清在线完整版| 欧美无砖专区一中文字| 国产mv日韩mv欧美| 日韩高清欧美激情| 一区二区三区在线观看网站| 久久影院视频免费| 在线播放日韩导航| 91老师片黄在线观看| 国内国产精品久久| 免费成人在线观看视频| 一卡二卡三卡日韩欧美| 国产精品妹子av| 2021久久国产精品不只是精品| 欧美色图免费看| 色综合久久中文字幕| 国产精品资源网站| 另类人妖一区二区av| 亚洲国产欧美另类丝袜| 成人欧美一区二区三区在线播放| 精品国免费一区二区三区| 欧美一区二区视频在线观看2022| 色婷婷国产精品综合在线观看| 国产成人在线看| 精彩视频一区二区三区| 免费人成精品欧美精品| 亚洲高清免费在线| 夜夜爽夜夜爽精品视频| 亚洲欧美日韩电影| 中文字幕一区在线| 国产精品区一区二区三| 国产精品免费网站在线观看| 久久久久久久综合| 久久久青草青青国产亚洲免观| 日韩一二在线观看| 日韩一级免费一区| 精品国产成人在线影院| 欧美成人高清电影在线| 日韩限制级电影在线观看| 91精品国产一区二区| 欧美精选午夜久久久乱码6080| 欧美日韩在线一区二区| 欧美日韩视频在线观看一区二区三区 | 日韩一区二区电影网| 7777精品伊人久久久大香线蕉经典版下载 | 成人午夜在线免费| 粉嫩13p一区二区三区| 懂色av一区二区三区免费观看 | 亚洲国产精品二十页| 久久久精品日韩欧美| 国产亚洲美州欧州综合国| 国产日韩欧美精品一区| 国产精品成人网| 最新国产精品久久精品| 亚洲综合色丁香婷婷六月图片| 一区二区欧美国产| 毛片av一区二区| 国产精品系列在线播放| 91女人视频在线观看| 欧美三级在线看| 日韩欧美www| 国产精品网站在线播放| 亚洲天堂网中文字| 首页欧美精品中文字幕| 国产麻豆视频一区| 色综合久久久久综合体桃花网| 欧美色区777第一页| 欧美精品一区二区三区很污很色的 | 不卡视频一二三| 欧美日韩美女一区二区| 欧美va亚洲va在线观看蝴蝶网| 亚洲欧洲性图库| 五月天国产精品| 成人一区二区三区| 精品视频一区二区不卡| ww亚洲ww在线观看国产| 一区二区三区日本| 国产乱淫av一区二区三区 | 久久精品国产99久久6| 国产成人精品免费在线| 欧美性色黄大片手机版| 26uuu精品一区二区三区四区在线| 亚洲欧洲av色图| 免费看精品久久片| 色诱亚洲精品久久久久久| 精品国产乱码久久久久久1区2区| 亚洲卡通欧美制服中文| 国产一区三区三区| 欧美吻胸吃奶大尺度电影| 国产网红主播福利一区二区| 日韩成人av影视| 91在线观看成人| 久久久综合网站| 五月激情综合色| 色综合久久久久综合体| 久久精品一级爱片| 蜜臀久久99精品久久久画质超高清 | 亚洲欧美日韩中文字幕一区二区三区| 裸体一区二区三区| 欧美精品乱人伦久久久久久| 中文字幕一区免费在线观看| 久久99这里只有精品| 91精品欧美久久久久久动漫| 一级日本不卡的影视| caoporm超碰国产精品| 久久久亚洲精品石原莉奈| 日本欧美一区二区三区| 欧美日韩在线免费视频| 亚洲一级在线观看| 色婷婷av一区二区三区gif| 国产精品日韩成人| 成人一级视频在线观看| 国产色综合一区| 东方欧美亚洲色图在线| 国产日韩精品一区| 国产成人精品免费| 26uuu国产一区二区三区| 国产一区二区不卡在线 | 色综合夜色一区| 国产精品三级电影| 成人黄色一级视频| 国产精品私人影院|