Others

lstrcpy-Copy string Unit Unit1; interface uses 　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 　Dialogs, StdCtrls; type 　TForm1 = class(TForm) 　　Button1: TButton; 　　Button2: TButton; 　　Button3: TButton; 　　procedure

Ischarupper-Is it a capital letter? Unit Unit1; interface uses 　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 　Dialogs, StdCtrls; type 　TForm1 = class(TForm) 　　Button1: TButton; 　　Button2: TButton; 　　Button3: TButton; 　

This example effect chart: Code files:Unit Unit1;InterfaceUsesWindows, Messages, sysutils, variants, Classes, Graphics, Controls, Forms,Dialogs;TypeTForm1 = Class (Tform)Procedure Formmousedown (Sender:tobject;

This example effect chart: Code files:Unit Unit1;InterfaceUsesWindows, Messages, sysutils, variants, Classes, Graphics, Controls, Forms,Dialogs, Stdctrls;TypeTForm1 = Class (Tform)Listbox1:tlistbox;Procedure Formcreate (Sender:tobject);Procedure

This example effect chart: Code files:Unit Unit1;InterfaceUsesWindows, Messages, sysutils, variants, Classes, Graphics, Controls, Forms,Dialogs, Stdctrls, Extctrls;TypeTForm1 = Class (Tform)Combobox1:tcombobox;Procedure Formcreate (Sender:tobject)

This example effect chart: Code files:Unit Unit1;InterfaceUsesWindows, Messages, sysutils, variants, Classes, Graphics, Controls, Forms,Dialogs, Stdctrls, Extctrls;TypeTForm1 = Class (Tform)Radiogroup1:tradiogroup;Procedure Formpaint

TGPLinearGradientBrush.Create( 　rect: TGPRect;　　　　　　{线性渐变的界限} 　color1, color2: TGPColor; {线性渐变起始色与终止色} 　mode: TLinearGradientMode {渐变方向, 见下表} ); TGPLinearGradientBrush.Create( 　rect: TGPRectF; 　color1, color2: TGPColor; 　mode: TLinearGradientMode );

This example effect chart: Code files:Unit Unit1;InterfaceUsesWindows, Messages, sysutils, variants, Classes, Graphics, Controls, Forms,Dialogs;TypeTForm1 = Class (Tform)Procedure Formpaint (Sender:tobject);Procedure Formmousedown (Sender:tobject;

This example effect chart: Code files:Unit Unit1;InterfaceUsesWindows, Messages, sysutils, variants, Classes, Graphics, Controls, Forms,Dialogs, Stdctrls, Comctrls;TypeTForm1 = Class (Tform)Button1:tbutton;Trackbar1:ttrackbar;Procedure

This example effect chart: Code files:Unit Unit1;InterfaceUsesWindows, Messages, sysutils, variants, Classes, Graphics, Controls, Forms,Dialogs, Stdctrls;TypeTForm1 = Class (Tform)Button1:tbutton;Button2:tbutton;Procedure Formmouseup

This example effect chart: Code files:Unit Unit1;InterfaceUsesWindows, Messages, sysutils, variants, Classes, Graphics, Controls, Forms,Dialogs, Stdctrls;TypeTForm1 = Class (Tform)Button1:tbutton;Button2:tbutton;Procedure Formmouseup

This example effect chart: Code files:Unit Unit1;InterfaceUsesWindows, Messages, sysutils, variants, Classes, Graphics, Controls, Forms,Dialogs, Stdctrls, Spin, Extctrls;TypeTForm1 = Class (Tform)Panel1:tpanel;Label1:tlabel;Label2:tlabel;Spinedit1

This example effect chart: Code files: Unit Unit1;InterfaceUsesWindows, Messages, sysutils, variants, Classes, Graphics, Controls, Forms,Dialogs;TypeTForm1 = Class (Tform)Procedure Formpaint (Sender:tobject);Procedure Formcreate (Sender:tobject);

This example effect chart: unit Unit1; interface uses 　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 　Dialogs; type 　TForm1 = class(TForm) 　　procedure FormPaint(Sender: TObject); 　end; var 　Form1: TForm1;

GDI + is a function library of Windows, from Windows\system32\gdiplus.dll, which contains 610 functions. Use in Delphi need to download and install GDI + for Delphi First (this is used for 2006, 2007 Win32 version). Provide a new download:

The following three function functions are the same, but the efficiency is different {Fun1 需要读取常数 0, 最慢} function Fun1: Integer; asm 　mov eax, 0 end; {FUN2 and FUN3 only operate CPU registers, faster than FUN1} function Fun2: Integer; asm 　sub

In addition to Byte, Word, Cardinal, and Integer, the integer type of Delphi is also: Longint, Longword, Shortint, Smallint, Int64 Wherein Longint is equivalent to an Integer; Longword is equivalent to Cardinal. There are three other types of this:

Delphi functionfunction DelphiFun(x: Integer): Integer; begin 　Result := x * 2; end; assembly function, which is the same function as the above functionfunction AsmFun(x: Integer): Integer; asm 　add eax, eax　 {eax 可以获取第一个参数, 同时又是函数的返回值, 所以可以如此 简洁!}

return type Hosting location Char, Byte AL Registers SmallInt, Word AX Registers Integer, Longword, ansistring, pointer, Class EAX Registers Real48 EAX registers are pointers to

Access to Delphi variables in the assembly can be accessed using the & operator procedure Proc(str1,str2: string); var 　s1,s2: string; begin 　asm 　　mov ecx, &str1　{} 　　mov edx, &str2 　　mov &s1, ecx　 {} 　　mov &s2, edx 　end; 　ShowMessage(s1 + s2);