摘要： Windows 数据类型 Delphi 数据类型 描述 LPSTR PAnsiChar 字符串指针 LPCSTR PAnsiChar 字符串指针 DWORD LongWord 整数 BOOL LongBool 布... 阅读全文

摘要： Delphi 数据类型 C/C++ ShorInt 8位有符号整数 char Byte 8位无符号整数 BYTE,unsigned short SmallInt 16位有符号整数 short Word 16位无符号整数 ... 阅读全文

摘要： type TOneArray = array of Integer; procedure AddArrayItem(Arr: TOneArray; x: Integer); begin SetLength(Arr,Length(Arr)+1); Arr[High(Arr)] := x; end; 阅读全文

摘要： procedure TForm1.Button1Click(Sender: TObject); var s1: AnsiString; //单字节储存 s2: WideString; //双字节储存 begin s1 := '万一OK'; s2 := '万一OK'; ShowMessage(s1[1]); //显示乱码 ShowMessage(s2[1]); /... 阅读全文

摘要： procedure TForm1.Button1Click(Sender: TObject); var s1: ShortString; //为兼容老版本而存在 s2: string; //长字串，相当于动态字符数组 s3: string[10]; //短字串，相当于静态字符数组，代替 ShortString begin ShowMessage(IntToStr... 阅读全文

摘要： procedure TForm1.Button1Click(Sender: TObject); var w: Word; r: Byte; begin w := $1234; //10进制 4660 {$R+} //如果添加越界检查，程序将提示错误，不能继续执行 r := w; //如果没有越界检查，r 将获取 w 的低 8 位 $34 ShowMessage(... 阅读全文

摘要： Abort //激发异常退出，如果在 try 块中，except 和 finally 的程序会执行 Exit //正常退出，如果在 try 块中，except 和 finally 的程序会执行 Halt //非正常结束程序，可有 Integer 参数给操作系统，windows 程序一般使用：Application.Terminate RunError //生成一个运行时错误，并退出程序。参数是 ... 阅读全文

摘要： procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(ExtractFilePath(ParamStr(0))); //获取程序所在目录 ShowMessage(ExtractFilePath(Application.ExeName)); //获取程序所在目录 ShowMessage(G... 阅读全文

摘要： //指针的运算仅对 PChar 类型 procedure TForm1.Button1Click(Sender: TObject); var p: PChar; begin p := 'China'; Inc(p); p := p + 1; ShowMessage(p); //返回：ina Dec(p); p := p - 1; ShowMessage(p);... 阅读全文

摘要： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ActnList, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Button1: TButton; ... 阅读全文