Delphi二级学习资料：操作符重载与Form设计示例

54 浏览量更新于2024-06-28 收藏 252KB DOC 举报

"本资源是一份针对Delphi语言的二级学习资料大全文档，主要关注于Delphi 8版本的应用。文档内容涵盖了Delphi编程的基础知识，特别是针对Delphi的面向对象特性，如类与组件的定义。文档的核心部分介绍了一个名为`TWinForm`的Windows窗体类，它是System.Windows.Forms.Form的子类，并展示了如何实现设计模式和事件处理，如按钮点击事件`Button1_Click`的处理方法。重点在于`TClassTest`记录类型的示例，该类型通过`classoperator`关键字实现了操作符重载，即重写了`+`操作符，使得两个`TClassTest`对象可以进行相加操作。这在面向对象编程中是一个重要的概念，它扩展了Delphi类的功能，允许自定义基本数据类型的操作行为。文档还提到了`dispose`方法的重写，这是一个用于释放资源的生命周期管理机制，确保程序的内存管理得当。另外，文档中还提到了`RuntimeRequiredAttribute`的使用，这是Delphi中的一种元数据，用来标记组件或类型需要在运行时被检查。这个属性表明`TWinForm`类型需要在运行时存在。整个文档不仅包含了基础语法和组件使用，还深入探讨了Delphi的高级特性，对于希望进一步提升Delphi编程技能的学习者来说，这份资料具有很高的实用价值。通过阅读和实践文档中的例子，读者可以掌握Delphi 8中的面向对象编程、操作符重载以及组件管理和设计模式等关键知识点。"

　　</root>

　　{----------------------------------------------------------------------}

　　function TForm1.GetXmlTree1(nNode: IXMLNode): string;

　　var

　　i, j: integer;

　　begin

　　for i:=0 to nNode.ChildNodes.Count-1 do

　　begin

　　s := s + ’<’ + nNode.ChildNodes.Nodes[i].NodeName;

　　for j:=0 to nNode.ChildNodes[i].AttributeNodes.Count-1 do

　　begin

　　s := s + ’ ’+ nNode.ChildNodes[i].AttributeNodes[j].NodeName;

　　s := s + ’=\"’+ nNode.ChildNodes[i].AttributeNodes[j].NodeValue +’\"’;

　　end;

　　s := s + ’>’;

　　if nNode.ChildNodes.Nodes[i].IsTextElement then

　　s := s + nNode.ChildNodes.Nodes[i].Text;

　　if nNode.HasChildNodes and not nNode.ChildNodes.Nodes[i].IsTextElement then

　　begin

　　s := s + #13 + #10;

　　GetXmlTree1(nNode.ChildNodes.Nodes[i]);

　　end;

　　s := s + ’</’+ nNode.ChildNodes.Nodes[i].NodeName +’>’ + #13 + #10;

　　end;

　　result := s;

　　end;

{----------------------------------------------------------------------}

　　function TForm1.GetXmlTree2(nNode: IXMLNode): string;

　　var

　　i, j: integer;

　　begin

　　s := s + ’<’ + nNode.NodeName;

　　for j:=0 to nNode.AttributeNodes.Count-1 do

　　begin

　　s := s + ’ ’+ nNode.AttributeNodes[j].NodeName;

　　s := s + ’=\"’+ nNode.AttributeNodes[j].NodeValue +’\"’;

　　end;

　　s := s + ’>’;

　　if nNode.IsTextElement then

　　s := s + nNode.Text

　　else

　　begin

　　s := s + #13 + #10;

就能解决问题，不过一个几百 k 的小程序要带上七八兆的补丁感觉实在不好。我就一直希望

能够把 interbase/firebird 应用于桌面数据的存储，就是因为那个安装服务器的问题一直没有

好办法。

　　现在终于发布了嵌入式的 firdbird，我们可以用 firebird embbed 作为桌面数据库了，跟

C/S 版的 firebird 数据奎一样，对许多现代数据库特性提供充分的支持，可以使用触发器、

存储过程，可以自定义类型，可以自定义外部函数。而且他与 firebird C/S 使用相同的文件

格式，也支持将一个数据库文件存储到多个文件，把它的数据文件放到 firebird C/S 上立刻

就可以使用，你随时可以把单机应用改造成 C/S 或者放到 web 上。应用程序开发与 firebird

C/S 没什么不同，可以使用它的 C API，也可以使用 Delphi/BCB 的 interbase 和 dbx 组件，当

然，安装了 odbc 驱动以后，用 ado 也是可以的。发布程序时只需要提供一个 dll，我们的 fire

bird 应用程序就可以工作了(用 ado 不行，用 dbx 还需要 midas.dll 和 dbexpint.dll)，可以很容

易地制作出安装程序，所有的配置工作都可以由程序员自己控制，也不用担心数据库会被用

户直接打开进行改动了。而且据我所知，嵌入式数据库好像还没有支持存储过程和触发器的

吧，access,sqlite 都不行，更不用说 dbf 和 paradox 了。

Int64 与 Currency

procedure　TForm1.Button1Click(Sender:　TObject);

　　var

　　c:　Currency;

　　i:　Int64　absolute　c;

　　begin

　　c　:=　1234.5678　;

　　ShowMessage(IntToStr(i));　//12345678

　　end;

　　procedure　TForm1.Button2Click(Sender:　TObject);

　　var

　　i:　Int64;

　　c:　Currency　absolute　i;

　　begin

　　i　:=　12345678;

　　ShowMessage(CurrToStr(c));　//1234.5678

　　end;

　　procedure　TForm1.Button3Click(Sender:　TObject);

　　var

　　i:　Int64;

　　c:　Currency;

　　begin

　　i　:=　12345;

　　ShowMessage(CurrToStr(PCurrency(@i)^));　//1.2345

　　c　:=　3.14;

　　ShowMessage(IntToStr(PInt64(@c)^));　　　//31400

剩余75页未读，继续阅读

yyyyyyhhh222

粉丝: 446
资源: 6万+

Delphi二级学习资料：操作符重载与Form设计示例

Delphi 学习资料 doc版

delphi学习资料

delphi学习资料下载2

delphi firedac.phys.mongo

delphi中Try...Finally end 的嵌套规则

delphi7_openssl.rar

delphi 图文转换精灵.rar

delphi open docx doc

delphi11 Image1.Picture.FileName 未定义

delphi vcl.styles.ext

最新资源