亚洲欧美第一页_禁久久精品乱码_粉嫩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 QMemory;

{$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.AllocMemSize = '+IntToStr(StdAllocSize);
end;

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

procedure TMainForm.FormCreate(Sender: TObject);
begin
  GetMemoryManager(QMemManager);
  StdAllocSize := AllocMemSize;
  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 := AllocMemSize;
    SetMemoryManager(QMemManager);
  end;
  ShowMessage('Array filled in '+IntToStr(D)+' ms');
  for J := 1 to 1000 do
    FreeMem(A[J]);
  StdAllocSize := AllocMemSize;
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 := AllocMemSize;
    SetMemoryManager(QMemManager);
  end;
  ShowMessage('Array filled in '+IntToStr(D)+' ms');
  for J := 1 to 1000 do
    FreeMem(A[J]);
  StdAllocSize := AllocMemSize;
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 := AllocMemSize;
    SetMemoryManager(QMemManager);
  end;
  ShowMessage('Array filled in '+IntToStr(D)+' ms');
  for J := 1 to 1000 do
    FreeMem(A[J]);
  StdAllocSize := AllocMemSize;
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 := AllocMemSize;
    SetMemoryManager(QMemManager);
  end;
  ShowMessage('Array filled in '+IntToStr(D)+' ms');
  for J := 1 to 1000 do
    FreeMem(A[J]);
  StdAllocSize := AllocMemSize;
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 := AllocMemSize;
    SetMemoryManager(QMemManager);
  end;
  ShowMessage('Array filled in '+IntToStr(D)+' ms');
  for J := 1 to 1000 do
    FreeMem(A[J]);
  StdAllocSize := AllocMemSize;
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 := AllocMemSize;
    SetMemoryManager(QMemManager);
  end;
  ShowMessage('Array filled in '+IntToStr(D)+' ms');
  for J := 1 to 1000 do
    FreeMem(A[J]);
  StdAllocSize := AllocMemSize;
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 := AllocMemSize;
    SetMemoryManager(QMemManager);
  end;
  ShowMessage('Array filled in '+IntToStr(D)+' ms');
  for J := 1 to 100 do
    FreeMem(A[J]);
  StdAllocSize := AllocMemSize;
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 := AllocMemSize;
    SetMemoryManager(QMemManager);
  end;
  ShowMessage('Array filled in '+IntToStr(D)+' ms');
  for J := 1 to 30 do
    FreeMem(A[J]);
  StdAllocSize := AllocMemSize;
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一区二区三区免费野_久草精品视频
欧美日韩二区三区| 欧美一级生活片| 7777精品伊人久久久大香线蕉完整版 | 色综合久久综合网欧美综合网| 欧美日韩视频在线一区二区| 国产精品嫩草99a| 久久99国产精品成人| 日本高清无吗v一区| 国产亚洲欧美日韩日本| 免费久久99精品国产| 91高清视频免费看| 亚洲欧美一区二区不卡| 国产精品自拍一区| 日韩欧美中文字幕制服| 香蕉成人啪国产精品视频综合网| www.日本不卡| 国产三级欧美三级日产三级99 | 国产成人午夜99999| 日韩写真欧美这视频| 亚洲综合色成人| av电影在线观看一区| 久久久不卡影院| 韩国成人福利片在线播放| 日韩写真欧美这视频| 日本三级亚洲精品| 4438成人网| 免费一区二区视频| 欧美一区二区三区性视频| 日韩精品亚洲专区| 日韩午夜电影av| 乱一区二区av| 欧美精品一区二区在线播放| 久久不见久久见中文字幕免费| 欧美一区二区三区四区高清| 婷婷六月综合亚洲| 91精品国产综合久久久久久久 | 国产成人精品免费视频网站| 精品久久久久久无| 国产在线精品一区在线观看麻豆| 日韩欧美中文字幕一区| 国产一区二区三区免费观看| 久久久不卡网国产精品一区| 丰满少妇在线播放bd日韩电影| 久久一二三国产| 成人午夜大片免费观看| 国产精品久久久久久久岛一牛影视| 日韩精品成人一区二区三区| 欧美一区二区日韩| 国产精品亚洲午夜一区二区三区 | 99国产精品国产精品毛片| ㊣最新国产の精品bt伙计久久| 99久久99久久精品免费看蜜桃| 夜夜操天天操亚洲| 日韩写真欧美这视频| 成人黄页毛片网站| 亚洲激情五月婷婷| 欧美一区二区三区电影| 国产成人免费视频| 亚洲欧洲在线观看av| 在线播放欧美女士性生活| 久久99精品一区二区三区三区| 中文字幕不卡的av| 欧美色综合天天久久综合精品| 免费美女久久99| 亚洲视频一区二区免费在线观看| 欧美色区777第一页| 黄一区二区三区| 日韩毛片一二三区| 3d动漫精品啪啪一区二区竹菊| 国产成人在线电影| 日韩黄色片在线观看| 国产精品私人自拍| 91精品国产日韩91久久久久久| 国产精品一区二区黑丝| 性久久久久久久久久久久| 国产亚洲一二三区| 欧美精品xxxxbbbb| 92精品国产成人观看免费| 蜜臀va亚洲va欧美va天堂| 综合在线观看色| 精品99久久久久久| 欧美日韩免费高清一区色橹橹| 国产成人免费视频网站高清观看视频 | 免费国产亚洲视频| 悠悠色在线精品| 久久精品一区二区三区不卡| 欧美日本韩国一区二区三区视频| 国产99久久久国产精品| 免费久久99精品国产| 亚洲国产精品久久不卡毛片| 国产精品嫩草影院av蜜臀| 精品国产第一区二区三区观看体验 | 欧美成人精品1314www| 欧美私人免费视频| 99视频在线观看一区三区| 激情综合色播五月| 日韩福利电影在线| 亚洲777理论| 亚洲一区二区三区中文字幕在线| 中文字幕不卡的av| 国产精品人成在线观看免费 | 欧美一区二区在线视频| 色婷婷av一区| 成人黄色免费短视频| 国产一区二区h| 国产一区二区三区高清播放| 日本不卡视频一二三区| 天天亚洲美女在线视频| 亚洲综合视频在线观看| 国产精品成人免费| 中文字幕一区二区三区四区不卡 | 色婷婷久久久亚洲一区二区三区| 福利电影一区二区| 丁香婷婷综合激情五月色| 国产精品资源站在线| 国内精品伊人久久久久av影院| 另类调教123区| 久久精品国产澳门| 韩国视频一区二区| 丁香亚洲综合激情啪啪综合| 丁香桃色午夜亚洲一区二区三区| 国产91丝袜在线18| www.欧美日韩| 欧美艳星brazzers| 欧美日韩国产影片| 精品日韩一区二区三区免费视频| 久久久国际精品| 中文字幕在线观看不卡视频| 亚洲欧美一区二区三区久本道91 | 在线观看精品一区| 欧美日韩一区二区欧美激情| 69堂成人精品免费视频| 欧美成人aa大片| 中文字幕乱码亚洲精品一区| 中文字幕一区二区三区精华液| 一区二区三区中文字幕精品精品 | 一区二区免费视频| 亚洲gay无套男同| 国产精品自在在线| 欧美综合在线视频| 日韩女优av电影| 中文字幕在线不卡视频| 日韩电影一区二区三区四区| 国产毛片一区二区| 91丨porny丨首页| 欧美一级日韩免费不卡| 欧美极品少妇xxxxⅹ高跟鞋| 亚洲精品成人天堂一二三| 久久aⅴ国产欧美74aaa| 不卡视频免费播放| 欧美高清视频一二三区| 欧美极品xxx| 美女一区二区三区| www..com久久爱| 欧美一二三在线| 亚洲视频你懂的| 国产一区二区导航在线播放| 色系网站成人免费| 久久免费电影网| 亚洲v日本v欧美v久久精品| 国产精品一品视频| 欧美群妇大交群中文字幕| 久久精品欧美一区二区三区麻豆| 天天色图综合网| 色偷偷久久一区二区三区| 久久影视一区二区| 免费人成在线不卡| 色又黄又爽网站www久久| 亚洲国产成人自拍| 久久精品免费看| 在线国产电影不卡| 国产女人aaa级久久久级| 蜜桃在线一区二区三区| 欧美三级日韩在线| 1区2区3区精品视频| 国产永久精品大片wwwapp| 6080亚洲精品一区二区| 亚洲激情中文1区| 不卡一二三区首页| 国产日韩欧美精品电影三级在线| 久久国内精品视频| 欧美日韩国产高清一区二区| 亚洲情趣在线观看| av激情综合网| 中文字幕日韩一区| 国产.精品.日韩.另类.中文.在线.播放| 56国语精品自产拍在线观看| 一区二区三区 在线观看视频| av激情亚洲男人天堂| 中文字幕永久在线不卡| 国产盗摄一区二区三区| 久久久久久久久久看片| 国内精品视频666| 久久毛片高清国产| 国产精品一级黄| 中文字幕乱码亚洲精品一区| 成人短视频下载| 国产精品视频yy9299一区| 成人丝袜高跟foot| 国产精品久久久久影院老司|