TSection=ClassTObject
SectinNumber:String;
SetionTitle:String;
end;
var Section:TSection
begin
Section := TSection.create;
Section.SectinNumber := '第一节';
Section.SectionTitle := '呵呵1';
ListBox.Add(' 第一节 呵呵1',Section);
...依次类推end;取得方法:
var Section:TSectionSection := TSection.create;
Section := TSection(ListBox.Items.Objects[0]);
然后“第一节”与“呵呵1”就分别是放在Section的两个属性中了,
...依次类推这种是专业做法
TSection=ClassTObject
SectinNumber:String;
SetionTitle:String;
要在什么时候定义呀?急!
谁先帮解决了
我起码给80分!!!
SectinNumber:String;
SetionTitle:String;
end;
var Section:TSection
begin
Section := TSection.create;
Section.SectinNumber := '第一节';
Section.SectionTitle := '呵呵1';
ListBox.Add(' 第一节 呵呵1',Section);
...依次类推end;取得方法:
var Section:TSectionSection := TSection.create;
Section := TSection(ListBox.Items.Objects[0]);
然后“第一节”与“呵呵1”就分别是放在Section的两个属性中了,
...依次类推这种是专业做法
TSection=ClassTObject
SectinNumber:String;
SetionTitle:String;
要在什么时候定义呀?急!
谁先帮解决了
我起码给80分!!!
解决方案 »
- fastreport4 括号<>and []问题
- 奇怪 ,clientdataset查询出来为空,但是在dbgrid显示全部值
- to:alphax(???),为了表示感谢,请再进来领点分吧!
- 问高手:查找保留问题怎么办?
- 奇怪的问题,关于子窗体,大家帮我看看
- VC和Delphi的类型对应问题?
- 新装系统显卡(太阳花鐳2000)驱动找不到了,不知道为什么,网上down的都没有用?急啊!!谁能给点提示啊~~~~~~ SOS
- 请问如何把ACCESS库的内容和表结构导入到SQL SERVER中去?
- 请问:怎样在Delphi中开辟大的多维数组?
- 请问在SQL Server2000里面有没有可以在一定的数据表中的所有字段搜索一个指定的值的功能?如果没有,该怎么做?
- 如果用多线程实现我这里的同步需要。简单扼要就好
- 菜鸟问题:为什么不能打开GIF或JPG呢??
type
TSection=ClassTObject
SectinNumber:String;
SetionTitle:String;
end;
放在定义form那边就可以了