Others

// Check whether the strings are the same: ansisamestr, ansisametextvar SS, S: ansistring; B: Boolean; begin SS: = 'abc'; s: = 'abc'; B: = ansisamestr (SS, S); {Case Sensitive} showmessage (booltostr (B); {false} B: = ansisametext (SS, S ); {Case

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;

About hexadecimal: There are 7 hexadecimal (week), 60 hexadecimal (hour), and 10 hexadecimal (arithmetic) in life.The computer needs to use 10-, 16-, 2-, and 8.It is used less in hexadecimal notation, but there are also file attributes on Unix

Modify the two items in optionsview in cxgridview to the following: Optionsview. Indicator = trueOptionsview. indicatorwidth = 40 // width In the customdrawindicatorcell event, enter Procedure

// Declaration: createpenindirect (const logpen: tlogpen {pen structure}): Hpen; {return pen handle} // tlogpen is the redefinition of the taglogpen structure: taglogpen = packed record lopnstyle: uint; {pen style} lopnwidth: tpoint; {pen width;

// The static array is used as a parameter and cannot be used as follows: function myfun (ARR: array [0 .. 9] of integer): integer; var I: integer; begin result: = 0; for I in arr do result: = Result + I; end; // The array should be defined as a

// Method overloading in the class first has all the features related to overload, such as: tmyclass = Class (tobject) function fun (S: string): string; overload; function fun (I: integer): integer; overload; function fun (X, Y: integer): string;

This is a set of APIS for storing strings. Store a string through addatom and return an ID; Getatomname uses this ID to return the stored string; You can also use findatom to find and delete stored strings with deleteatom. This storage area is

// Declaration: polypolygon (DC: HDC; {Device environment handle} var points; {point array} var npoints; {array, the array element is the number of vertices of each polygon} P4: INTEGER {Number of polygon, that is, the number of npoints elements}):

Appendmenu Add a menu item to the specified menu Checkmenuitem Check or uncheck a specified menu entry Checkmenuradioitem Specifies that a menu item is selected as a "single choice" item. Createmenu

This is exactly the same as the logic commands of Delphi. // Logical non-not: {not 1 = 0; not 0 = 1;} var bytenum: byte; begin // assign a value of 111111b (255); reverse: ASM mov Al, 11111111b {eax contains ax; ax contains al; Al is the low

// Check whether var REG: tperlregex; begin REG: = tperlregex exists. create (NiL); Reg. subject: = 'codegear Delphi 2007 for Win32 '; Reg. regEx: = '\ d'; If Reg. match then showmessage ('found') else showmessage ('not found'); freeandnil (REG);

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;

Dictionary data table design and table field sorting Method for reading dictionary metadata procedure setdataset (Dataset: tdataset; const table: string ); VaR D: tadoquery; I: integer; Begin If dataset = nil then exit; If not dataset. Active then

The memory allocated by virtualalloc is 4 K as the smallest unit and continuous memory address (but it is not necessarily continuous when mapped to the real memory). As mentioned above, it is not suitable for allocating small memory (for example,

The model-driven design commitment shortens development time, reduces bugs, and improves maintainability. Is it a dream of Huang Yi? Maybe Matthew overington will say no. The software development industry has spent several years working on

In Delphi, datasets are the most common data access methods. Therefore, the interaction between JSON and tdataset must be established to achieve communication and conversion between data. It is worth noting that this is only a normal conversion

It is said that event (event object) is the most primitive synchronization method of multithreading, and I think it is the most flexible one.The event object (the handle table) mainly contains two Boolean variables. You can see from its creation

{*************************************** ****************}{}{Export tdbgrideh data}{}{Copyright (c) 2007 Yunan studio}{}{*************************************** ****************} Unit uexport; Interface UsesDbgridehimpexp, dbgrideh, sysutils,

Cancelwaitabletimer This function is used to cancel a timer operation that can wait. Callnamedpipe This function is called by a customer process that wants to communicate through the pipeline. Connectnamedpipe Indicates