type
TRec = record
a: Integer;
b: String;
end;const
aaabbb: array [1..2] of TRec = ((a: 1; b: '000'), (a: 2; b: '111'));
TRec = record
a: Integer;
b: String;
end;const
aaabbb: array [1..2] of TRec = ((a: 1; b: '000'), (a: 2; b: '111'));
解决方案 »
- 关于连接Excel2007的问题
- Turbo Pascal的问题
- mscomm控件使用出现问题(众里寻你千百度)
- 如何将程序放入开始菜单中内以及创建快捷菜单
- 保存语句?
- 如何将bmp格式转换为emf格式,emf格式文件能否变小?比例为多少(在线等待)(高手请近)
- 如何使用SQL动态语句呀:(
- 如何把access数据引打包到程序的安装包中,
- C++转delphi 有人有现成的吗 ??? ImageDirectoryEntryToDataEx
- 用Tquery查询二个表放入dbgrid中,如何对其修改????
- 如何使用webbrowser来捕获Document中某按钮的onClick
- 大家去看看Borland的站点 www.borland.com
StMyHz = packed record
Word: array[0..1] of Char;
Code: PChar;
end;const
MyRec: array[1..6]of StMyHz=
((word:'凹';code:'00'),(word:'口';code:'00'),
(word:'凸';code:'00'),(word:'吕';code:'0000'),
(word:'品';code:'000000'),(word:'噪';code:'0000000063'));