摘要： 看新表 ASCII值 控制字符 注释 0 NUT 1 SOH 标题开始 2 STX 正文开始 3 ETX 正文结束 4 EOT 传输结束 5 ENQ 询问字符 6 ACK 承认 7 BEL 报警 8 BS(Backspace) 退格 9 HT 横向制表 10 LF 换行 11 VT 垂直制表 12 FF 走纸控制 13 C... 阅读全文

摘要： //在 type 区写入： TMyClass = class property s: string; end; //然后把光标放在其中，执行 Ctrl+Shift+C，可以自动生成以下代码： TMyClass = class private Fs: string; procedure Sets(const Value: string); publi... 阅读全文

摘要： //通过 DLL Wizard 建立： library TestDLL; uses SysUtils, Classes, Dialogs; {$R *.res} //建立过程 procedure Test; begin ShowMessage('TestDLL.Test'); end; //输出 exports Test; begin end. //在其他工程调... 阅读全文

摘要： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type //晚绑定，也就是动态调用外部函数主要用以下三个命令： //LoadLibrary：获取 DLL //GetProcAd... 阅读全文

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

摘要： procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin i := 0; ShowMessage(IntToStr(i)); //0 i := not i; ShowMessage(IntToStr(i)); //-1 i := not i; ShowMessage(IntToStr... 阅读全文

摘要： //带默认值的参数只能在后面 function MyFun(a:Integer; b:Integer=1; c:Integer=2): Integer; begin Result := a + b + c; end; procedure TForm1.Button1Click(Sender: TObject); var x: Integer; begin x := MyFun(1)... 阅读全文

摘要： 每次开发前应该有个计划，先做什么、后做什么；最后检查完成情况。 To Do 注释可以很好地达到以上要求。 先建立程序框架，用 Ctrl+Shift+T 添加 To Do 注释；同时表明标题信息、序号、所属人和分类等等，也可以省略。 用 Alt+V+I 可以打开 To Do 列表；通过列表可以方便到达某个位置；可以标记哪些已完成；可以通过各种方式过滤或排序查看；可以只显示未完成的项目；可以... 阅读全文

摘要： 错误信息形式为: Run-time error nnn at xxxx; 其中nnn是运行时的错误编号; xxxx是运行时的错误地址. 编号 说明 I/O错误: (编号100-149) 100磁盘读错误,若要对超过格式文件尾进行读取时 101磁盘写错误,若磁盘满时,由CloseFile,Write,Writeln或Flush报告 10... 阅读全文

摘要： ; not allowed before ELSEElSE前不允许有“;” clause not allowed in OLE automation section在OLE自动区段不允许“”子句 is not a type identifier不是类型标识符 not previously declared as a PROPERTY前面没有说明PROPERTY GOTO leads in... 阅读全文