{返回值}procedure TForm1.Button3Click(Sender: TObject);var buf: array[0..6] of Cha
{對字符數組}procedure TForm1.Button3Click(Sender: TObject);var Arr: array[0..2+1] of
procedure TForm1.Button3Click(Sender: TObject);var c: Char; b: BOOL;begin c :=
procedure TForm1.Button3Click(Sender: TObject);var c: Char; b: BOOL;begin c :=
procedure TForm1.Button3Click(Sender: TObject);var c: Char; b: BOOL;begin c :=
procedure TForm1.Button4Click(Sender: TObject);var p1,p2: PChar; n: Integer;beg
如果給 AL 賦了值, 那麼 AX EAX 也就有了值.//測試1var i: integer; {4 字節、32 位} w: Word; {2 字節、1
// 邏輯與 And:{1 and 1 = 1;1 and 0 = 0;0 and 1 = 0;0 and 0 = 0;}varByteNum: Byte;b
//對於負數呢?{下面函數不會有問題, 返回 -1 }function Fun: Integer;asmmov eax, -1end;{它們能接受的最小負整數
窗體文件:object Form1: TForm1 Left = 0 Top = 0 Caption = Form1 ClIEntHeight = 184 C
窗體文件:object Form1: TForm1 Left = 0 Top = 0 Caption = Form1 ClIEntHeight = 184 C
窗體文件:object Form1: TForm1 Left = 0 Top = 0 Caption = Form1 ClIEntHeight = 188 C
窗體文件:object Form1: TForm1 Left = 0 Top = 0 Caption = Form1 ClIEntHeight = 188 C
窗體文件:object Form1: TForm1 Left = 0 Top = 0 Caption = Form1 ClIEntHeight = 188 C
體文件:object Form1: TForm1 Left = 0 Top = 0 Caption = Form1 ClIEntHeight = 187 Cl
本例效果圖:代碼文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Clas
窗體文件:object Form1: TForm1 Left = 0 Top = 0 Caption = Form1 ClIEntHeight = 206 C
窗體文件:object Form1: TForm1 Left = 0 Top = 0 Caption = Form1 ClIEntHeight = 206 C