2011年8月2日

万老师讲：简体中文与繁体中文的转换函数

摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); end;var Form1: TForm1;implementation{$R *.dfm}function GB2Big(GB: string): string;var Len: Integ 阅读全文

posted @ 2011-08-02 16:39 mytina 阅读(161) 评论(0) 推荐(0)

万老师讲：如何修改已存在的类？ （class helper 可能是从 Delphi 2007 增加的新语法）

摘要： Txxx = class helper for T... {T... 表示已存在的类} {可以替换已存在的方法} {也可以有新的方法、成员}end;//这之后再使用 T... 类及其子孙类时, 都会优先使用 Txxx 的修改.例一:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Clic 阅读全文

posted @ 2011-08-02 16:29 mytina 阅读(500) 评论(0) 推荐(0)

导航