thashmap_unit unit thashmap_unit; { unit : thashmap_unit class : thashmap 描述 : 哈希表实现工具 设计者 : sunny 生成日期 : 20060802 } interface uses classes, sysutils; type t
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
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
Copyright © 2005-2023 51CTO.COM 版权所有 京ICP证060544号
