摘要:
{ "班级1": { "classid": "101", "teacher": "Lee", "age": 25, "books": [ "book1", "book2", "book3" ] }, "班级2": { "classid": "102", "teacher": "Lee", " 阅读全文
摘要:
多线程同步,优先级控制 阅读全文
摘要:
线程同步SendMessage 阅读全文
摘要:
Delphi线程类(四) 阅读全文
摘要:
Thread{*******************************************************}{ }{ Delphi Thread Sample } { Creation Date 2012.08.25 }{ Created By: ming ... 阅读全文
摘要:
View Code type TfrmMain = class(TForm) mmoMsg: TMemo; btnNewThread: TButton; btnShutdownAll: TButton; procedure btnNewThreadClick(Sender: TObject); procedure FormCreate(Sender: TObject); procedure btnShutdownAllClick(Sender: TObject); private { Private declarations } public ... 阅读全文
摘要:
View Code interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TMsgReceiver = class(TObject) private fMsgHandlerHWND : HWND; WM_MY_UNIQUE_MESSAGE : Cardinal; procedure WndMethod(var Msg: TMessage); public Point : TPoint; constructo... 阅读全文
摘要:
今天写给别人的一段代码。View Code procedure TfrmMain.btnXorClick(Sender: TObject);var dc: HDC; x,y: Integer; bmp1,bmp2,bmp3: TBitmap; pt: TPoint;const WW=100; //Width HH=100; //Height XX=100; //X Coordinate YY=100; //Y Coordinate _SLEEP = 100; //Sleep times procedure MySleep(ms:Cardinal); var ... 阅读全文
摘要:
View Code procedure ShowMsg(const fmtStr:string; const params: array of const);begin ShowMessageFmt(fmtStr,params);end;function SumAll(const Args: array of const): Extended;var I: Integer;begin Result := 0; for I := Low(Args) to High(Args) do case Args[I].VType of vtInteger: Result := R... 阅读全文