摘要：
'BORLAND' { BORLAND } 'You''ll see' { You'll see } '''' { ' } '' { 空串 } ' ' { 空格 } #89#111#117 { You } #89'Y'#89 { YYY } #89 + 'Y' + #89 { YYY } #13#1 阅读全文
摘要：
procedure TForm5.Button1Click(Sender: TObject); const w1:Word = 101; var w:Word; begin w := w1 shr 3; ShowMessage(IntToStr(w)); //12 {w1 shr 3 相当与 w1 div 2的3次方} w := w1 shl 3; ShowMessag... 阅读全文
摘要：
参数可以分为: 默认参数(传值)、var(传址)、out(输出)、const(常数)四类 {默认参数是传值, 不会被改变} function MyF1(x: Integer): Integer; begin Inc(x); Result := x; end; {var参数是传址, 会被改变} function MyF2(var x: Integer): Integer; begi... 阅读全文
摘要：
DisableControls方法是在程序修改或后台有刷新记录的时候切断数据组件，如TTABLE、ADOQUERY等等与组件数据源的联系。如果没有切断，数据源中只要一有数据的改动，尤其是批量改动的话，每一笔的改动都会更新窗口中数据浏览组件的显示，这样会急剧减慢处理过程而且浪费时间。EnableCon 阅读全文
摘要：
procedure TForm1.Button1Click(Sender: TObject); var b: Boolean; s: string; begin b := True; s := BoolToStr(b); ShowMessage(s); {-1} b := False; s := B 阅读全文
摘要：
IsIconic()作用是判断窗口是否处于最小化状态（点击了最小化按钮之后）。 对于普通的对话框来说，如果你在if (IsIconic()) 下面加入AfxMessageBox("haha") ，你会发现消息框并不会弹出。 原因是，if (IsIconic()) 这段代码是在OnPaint()函数内 阅读全文
摘要：
function Tform1.DownConfigreFile(var errmsg: string; url, name: string): boolean; var MyStream: TMemoryStream; begin Result := true; MyStream := TMemoryStream.Create; try try httpU... 阅读全文
摘要：
Private: 私有的，只能自己使用或者是同一单元的子类使用，实例不可使用Protected，保护的，自己和子类均可使用，实例不可访问的Public，公共的，具体实例可以访问和使用Published，发布的，主要是针对元件定义的类型，可以在属性列表中可见，使用同Public 阅读全文
摘要：
Abort //激发异常退出，如果在 try 块中，except 和 finally 的程序会执行 Exit //正常退出，如果在 try 块中，except 和 finally 的程序会执行 Halt //非正常结束程序，可有 Integer 参数给操作系统，windows 程序一般使用：Appl 阅读全文
摘要：
TTrayIcon 的主要属性: TrayIcon.Icon指定托盘图标, 有几种用法:1、设计时选择;2、把一个 TIcon 对象给它;3、使用当前程序图标: TrayIcon1.Icon := Application.Icon;4、TrayIcon1.SetDefaultIcon; 这也是使用当 阅读全文