Others

Unit unit1; interfaceuses windows, messages, extensions, variants, classes, graphics, controls, forms, dialogs, stdctrls; Type tform1 = Class (tform) button1: tbutton; Procedure button1click (Sender: tobject); end; var form1: tform1; implementation {

Assume there is such a string of text: aaa1 bbb2 aa11 bb22 a111 b222 AAAA You can use the expression [A-Za-Z] + \ D + to extract the first six strings. TestCode: Uses regularexpressions; Procedure tform1.formcreate (Sender: tobject); var

Example image: ExampleCode: Uses gdiplus; Procedure injection (Sender: tobject); var graphics: igpgraphics; Image: igpimage; brush: igptexturebrush; rect: tgprect; begin chdir ('C: \ gdiplusimg \'); image: =

Translatetransform: translation; Scaletransform: scale down; Rotatetransform: rotation; The multiplytransform method and the transform attribute can complete more transformations including the preceding transformations. The resettransform

Color is the basic attribute of a paint brush. It is interesting to use a paint brush to create a paint brush. Five paint brushes are acceptable, but it makes no sense to use solid paint brushes; After the image is created, you can use the

Uses gdiplus; Procedure tform1.formpaint (Sender: tobject); var graphics: igpgraphics; blackpen, greenpen: igppen; rect: tgprect; begin rect. initialize (20, 20, 80, 80); graphics: = tgpgraphics. create (handle); blackpen: = tgppen. create ($ ff00000

Blob (Binary Large Object) fields include: Ftblob, ftmemo, ftgraphic, distance, fttypedbinary, ftcursor, ftfixedchar, ftwidestring, distance, ftadt, ftarray, ftreference, ftdataset, distance, distance, ftvariant, ftinterface, ftidispatch,

Tclientdataset can directly access the XML with its own format specifications. accessing other formats of XML requires corresponding ing files (*. XTR ). This type of *. XTR file is created using XML mapper (which comes with Delphi and can be

Problem Source: http://www.cnblogs.com/del/archive/2007/12/18/1005161.html#1786227 {Function} function toalignstring (const STR: string; Len: integer): string; var I, n: integer; s: string; begin if ABS (LEN) 0 then s: = stringofchar ('', n);

Win32 compilation tools mainly include MASM and tasm. I chose the former for a wide range of use and ease of communication. According to the introduction, I first downloaded masm32 (http://www.masm32.com/), found good, but not what I want most.

=, Equ, textequ functions are similar, and all the symbols they define will be replaced by their specified constant values in the compilation predecessors. In contrast, EQU is easier to use. = Example ; Test13_1.asm.386.model

Problem Source: http://www.cnblogs.com/del/archive/2009/01/08/1370907.html#1425544 In this example: Code File: Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs,

Unit unit1; interfaceuses windows, messages, extensions, variants, classes, graphics, controls, forms, dialogs, stdctrls; Type tform1 = Class (tform) button1: tbutton; Procedure button1click (Sender: tobject); end; var form1: tform1; implementation {

Both parameters can also be get (waveoutgetplaybackrate, waveoutgetpitch) The default playback speed of the device is $00010000. If this value is multiplied by 2, the playback speed is doubled. If this value is divided by 2, the playback speed

I have read the source code of inputbox and inputquery functions, and I have some gains and experiences... You can use inputbox to obtain user input strings: Procedure tform1.button1click (Sender: tobject); var STR: string; begin

// Create a region: tgpregion. create (); {the parameter can be a rectangle, path, hrgn, or region data, or no parameter} tgpregion. fromhrgn (); {initialize from hrgn} // calculate the region (rectangle, path, or another region): igpregion.

It is very convenient to implement an isuperobject interface through the superobject public function so; A string parameter can be any type or even a constant array. Both SA and so return an isuperobject;So can generate an isuperobject of

Attributes and methods of igpmatrix: // Method igpmatrix. reset; {reset matrix to obtain the unit matrix (the diagonal line is 1 and the other is 0)} igpmatrix. translate (); {translation} igpmatrix. scale (); {scale} igpmatrix. rotate ();

Loop is executed repeatedly; From where? This requires "label "; How many times? Tell the ECX register the number of iterations. Stupid way to calculate 3x8 = 24 ; Test15_1.asm.386.model flat, stdcallinclude windows. incinclude

This includes: // Method igpmetafile. getmetafileheader; {retrieve Metafile's metafileheader} igpmetafile. gethenhmetafile; {obtain the Windows handle of the Enhanced Metafile} igpmetafile. playrecord (); {playing a single Metafile record} //