Others

Tip: Because the callback function is accessed during the interruption time, it must be in the DLL; the data to be accessed must be in a fixed data

Type tmyenum = (Monday, Tuesday, Wednesday, Thursday, Friday, Saturday, Sunday); {definition enumeration} var weekarr: array [tmyenum] of string; {definition array} myenum: tmyenum; {defines enumeration variables} begin {array assignment} weekarr

// An example containing two forms: Program project1; uses forms, unit1 in 'unit1. PAS '{form1}, unit2 in 'unit2. PAS '{form2}; {$ R *. res} begin application. initialize; application. mainformontaskbar: = true; application. createform (tform1, form1

// Class unit person; interfaceuses dialogs; Type tperson = Class (tobject) Private fname: string; Fage: integer; Public constructor create (strname: string; intage: integer ); destructor destroy; override; function getname: string; function getage:

// Obtain the current position of the mouse in the form procedure tform1.formmousedown (Sender: tobject; button: tmousebutton; shift: tshiftstate; X, Y: integer); var STR: string; begin STR: = format ('% d, % d', [x, y]); showmessage (STR); end; //

Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls; Type tform1 = Class (tform) button1: tbutton; button2: tbutton; button3: tbutton; button4: tbutton; Procedure submit (Sender:

unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, menus; Type tform1 = Class (tform) procedure formcreate (Sender: tobject); Procedure proc (Sender: tobject); {declare the method to be

The shortcut menu item uses the shortcut Cut attribute to set the shortcut key. Shortcut cut is of the tshortcut type, and tshortcut is a subfield: 0 .. 65535. All optional values for shortcut are listed in: http://www.cnblogs.com/del/archive/2008/0

// Declaration: getwindowtext (hwnd: hwnd; {window handle} lpstring: pchar; {pointer to the buffer for Receiving text} nmaxcount: INTEGER {specify the buffer size, which contains null characters; if the text exceeds the limit, it will be truncated.})

Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls; Type tform1 = Class (tform) memo1: tmemo; button1: tbutton; handler: tbutton; button3: tbutton; button4: tbutton; button5:

// Declaration: drawtext (HDC: HDC; {Device handle} lpstring: pchar; {text} ncount: integer; {number of characters to be drawn;-1 indicates all} var lprect: trect; {rectangular structure} uformat: uint {Option}): integer; {returned text height} //

// To understand this, use the callback function {define method type} type tfuntype = function (X: integer): integer; {function type} tproctype = procedure (Name: string); {process type} {define a function that meets the tfuntype} function myfun (X:

// Precaseless: case-insensitive, equivalent to Ivar REG: tperlregex; begin REG: = tperlregex in other languages. create (NiL); Reg. subject: = 'abc ABC abc'; Reg. regEx: = 'abc'; Reg. replacement: = '◆ '; Reg. options: = [precaseless]; // The

The variant structure, that is, the variant record, is a complicated concept and is not recommended by experts. I want to figure it out. The maximum cardinal is 4294967295, which is 4 bytes in size and its binary representation is:11111111 111111

//? The meaning of the number is to match 0-1 times, if you need to match? How to Do var REG: tperlregex; begin REG: = tperlregex. Create (NiL); Reg. Subject: = 'Are you fine? Okay! '; Reg. RegEx: = '\? |! '; // Escape \ Reg. replacement: = '◆ ';

Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, xmldom, xmlintf, msxmldom, xmldoc, stdctrls; Type tform1 = Class (tform) xmldocument1: txmldocument; button1: tbutton; button2: tbutton;

Delphi's camera control is very simple. All the underlying messaging functions have been defined in the system, Windows, and messages units. We only need to call them reasonably. I made the related operations of the camera into a control, so that

During this period of time, I have been working on Industrial Automatic Control Projects. What I use is SiemensAt that time, the host computer used Siemens WinCCThe change of C in use is intolerable and cannot be called modern software without event-

Virtual key code Corresponding value Corresponding Key Vk_lbutton 1 Left mouse button Vk_rbutton 2 Right-click Vk_cancel 3 Cancel Vk_mbutton 4 Middle mouse Vk_xbutton1 5

// Example in Red: // 1. RGB mode: Self. Color: = $ 0000ff; // However, It is opposite to # ff0000 in HTML and should be called BGR. // 2. RGB score, for example: Self. Color: = RGB (255, 0, 0 ); // 3. standard mode in Delphi: Self. color: = $ 0000