https://hessian.cn/cat/program/delphiHessian 的技术笔记：Linux、C++、网络与嵌入式zh-CNhttps://hessian.cn/p/603.htmlWed, 18 Apr 2007 03:08:00 +0800https://hessian.cn/p/603.html　我原来在万千的新闻组(news://news.webking.com.cn/)Delphi版上闲逛那段时间，发现经常有人提出一些数据库方面的技巧性问题，问题其实不难，但是要一个简单的解决方案，可能也破费思量，特别在此简单谈谈： https://hessian.cn/p/656.htmlMon, 09 Apr 2007 22:48:00 +0800https://hessian.cn/p/656.html 全力提升 TIniFile 的读取速度 软件保存设置一般是写入本地目录，或者写入注册表。前者使用的文件格式很多，多为 IniFile (现在 XML 也开始流行)。后者是将信息储存在注册表中，并通过的 TRegistry 或者标准的 WindowsAPI 来读写。后者有个很大的好处：不需要对多用户系统进行考虑，Windows 可以很好的控制多用户的切换。但缺点是往往卸载软件不将注册表中生成的记录信息删除干净。而制作绿色软件的作者多采用 IniFile 方式保存信息。 https://hessian.cn/p/621.htmlSat, 07 Apr 2007 16:23:00 +0800https://hessian.cn/p/621.html大家都认为，C语言之所以强大，以及其自由性，很大部分体现在其灵活的指针运用上。因此，说 指针是C语言的灵魂，一点都不为过。同时，这种说法也让很多人 产生误解，似乎只有C语言的指针才能算指针。Basic不支持指针，在此不论。其实，Pascal语言本身也是支持指针的。从最初的Pascal发展至今 的Object Pascal，可以说在指针运用上，丝毫不会逊色于C语言的指针。https://hessian.cn/p/447.htmlSat, 07 Apr 2007 15:08:00 +0800https://hessian.cn/p/447.html转自:http://mrmzy.bokee.com/tb.b?diaryId=15467469 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm)     Label1: TLabel;     Label2: TLabel;     Label3: TLabel;     Label4: TLabel;     Edit1: TEdit;     Edit2: TEdit;     Edit3: TEdit;     Edit4: TEdit;     Label5: TLabel;     Edit5: TEdit;     Button1: TButton;     Button2: TButton;     Button3: TButton;     Label6: TLabel;     Label7: TLabel;     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure Button3Click(Sender: TObject); private     { Private declarations } public     { Public declarations } end; var Form1: TForm1; type     Tstudent=class     private       name:string;       yy:real;       math:real;       hx:real;       total:real;     public       procedure getname(nm:string);virtual;       procedure getyy(cj:real);virtual;       procedure getmt(cj:real);virtual;       procedure gethx(cj:real);virtual;       procedure caculat();virtual;       function returntotal():real;virtual; end; implementation function Tstudent.returntotal():real; begin returntotal:=total; end; procedure Tstudent.getname(nm:string); begin if name<>nm then     name:=nm; end; procedure Tstudent.getyy(cj:real); begin if yy<>cj then     yy:=cj; end; procedure Tstudent.getmt(cj:real); begin if math<>cj then     math:=cj; end; procedure Tstudent.gethx(cj:real); begin if hx<>cj then     hx:=cj; end; procedure Tstudent.caculat(); begin total:=yy+math+hx; end; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var student:Tstudent; begin if (edit1.Text=”) or (edit2.Text=”) or (edit3.Text=”) or (edit4.Text=”) then      edit5.Text:=’请检查输入！’ else      begin        student:=Tstudent.Create;        student.getname(edit1.Text);        student.getyy(strtofloat(edit2.Text));        student.getmt(strtofloat(edit3.Text));        student.gethx(strtofloat(edit4.Text));        student.caculat();        edit5.Text:=floattostr(student.returntotal());      end end; procedure TForm1.Button2Click(Sender: TObject); begin edit1.Text:=”; edit2.Text:=”; edit3.Text:=”; edit4.Text:=”; edit5.Text:=”; end; procedure TForm1.Button3Click(Sender: TObject); begin close; end; end.