DELPHI实现动态信息显示功能

  thashmap_unit         unit thashmap_unit; { unit : thashmap_unit class : thashmap 描述 : 哈希表实现工具 设计者 : sunny 生成日期 : 20060802 } interface uses classes, sysutils; type t

原创 点赞0 阅读1626 收藏0 评论1 2006-08-02

DELPHI 虚拟继承示例

type t_object = class(tobject) //基类 private public m_int_age : integer; m_str_name : string; procedure setage(p_int_age : integer) ; virtual; end; t_child = class(t_object) private

转载 点赞0 阅读1580 收藏0 评论1 2006-08-01

Delphi 打印---打印机选择

var mdevice : array[0..255] of char; mdriver : array[0..255] of char; mport : array[0..255] of char; mhdmode : thandle; mpdmode : pdevmode; begin printer.getprinter(mdevice, mdriver, mpo

转载 点赞0 阅读4132 收藏0 评论2 2006-08-01
写文章