2007 年 12月 31 日随笔档案 - 万一

2007年12月31日

摘要： procedure TForm1.FormCreate(Sender: TObject);var Str: string; pStr: PString;begin Str := 'Delphi 2007'; pStr := @Str; {用 @ 获取指针} ShowMessage(pStr^); {Delphi 2007} Str := 'Delphi 2008'; pStr := ... 阅读全文

posted @ 2007-12-31 21:23 万一阅读(5208) 评论(1) 推荐(0)

AbstractErrorProc - 抽象错误处理的指针

摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type {父类} TBase = class procedure proc; virtual; abstract; {抽象方法} end; {子类} ... 阅读全文

posted @ 2007-12-31 18:16 万一阅读(4054) 评论(2) 推荐(0)