Others

Now you are going to create the items array attribute. Enter the following in the public area: Code : Property items [index: integer]: pointer; The code after executing SHIFT + Ctrl + C is: ... Tmylist = Class (tobject) Private...

Problem Source: http://www.cnblogs.com/del/archive/2008/07/09/1073218.html#1249648 Code File: Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, extctrls, stdctrls; Type tform1

Problem Source: http://www.cnblogs.com/del/archive/2008/12/30/1364557.html#1417716 In this example: Code File: Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs,

In this example: Code File: Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls, grids; Type tform1 = Class (tform) drawgrid1: tdrawgrid; openalodig1:

1. Determine the pixel format of the bitmap: VaR bit: tbitmap; pix: tpixelformat; s: string; begin bit: = tbitmap. create; bit. loadfromfile ('C: \ temp \ test.bmp '); // bitmap path pix: = bit. pixelformat; s: = ''; Case pix of pfdevice: S:

The clipboard class tclipboard is defined in the clipbrd unit. Uses clipbrd is required before use; Uses clipbrd; Procedure tform1.button1click (Sender: tobject); var clip: tclipboard; begin clip: = tclipboard. create; {create} clip.

Here the "string" is not a single string, including all consecutive data (such as arrays); the string command is only used for memory operations. Move string commands: movsb, movsw, and movsd; from ESI-> EDI; after execution, the ESI and EDI

Type Tarr = array of tpoint; {It is much easier to define an array as a type. Here, only tpoint test is used.} {the process of deleting the specified element of a dynamic array: the ARR parameter is the array name, the index parameter is the index

Code File: Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls; Type tform1 = Class (tform) memo1: tmemo; button1: tbutton; button2: tbutton; Procedure button1click (Sender:

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

In this example: Code File: Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls, tecanvas, comctrls; Type tform1 = Class (tform) combox1: tcombobox; combox2:

According to the main function of waitabletimer, it is a bit inappropriate to discuss it in the thread synchronization topic. It is about to end. // Check the APC callback function Format again: Procedure timerapcproc (lpargtocompletionroutine:

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

In this example: Source code: Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, percentages, stdctrls; Type tform1 = Class (tform) treeview1: ttreeview; button1: tbutton; button2:

In this example: Code File: Unit unit1; interfaceuses windows, messages, extensions, variants, classes, graphics, controls, forms, dialogs, stdctrls; Type tform1 = Class (tform) listbox1: tlistbox; Procedure formpaint (Sender:

Problem Source: http://www.cnblogs.com/del/archive/2008/06/12/1131232.html#1224216 First, there are two ways to implement this problem: 1. edges and edges. 2. The image is first drawn in the memory and then copied to the front-end. This is

Implement the tmylist. Add function. The add function in tlist uses a grow method. The principle is that the more elements, the more memory will be prepared for the future. Here we omit the memory reserved for four elements; The add function in

Tdib. drawtransparent: transparent according to the specified transparent color; Tdib. drawtranslucent: transparent Based on the specified transparent color, and then translucent; DiB. drawalpha: first transparent Based on the specified transparent

The create method provided by the igpimage class: Image: = tgpimage. create (file (or stream), Boolean); // The Boolean value defaults to false. If it is true, the file (or stream) is used) embedded color management information for color

If you can open an image in a certain format, you will have a corresponding decoder. If you can save the image in a certain format, you will also have a corresponding encoder. The following program uses igpimagecodecinfoarray and igpimagecodecinfo