解决方案 »
类似问题 »
- 基本的OOP问题,关于 Self (看了Delphi DG 的书,自己也写了段子, 有些疑惑)
- Delphi 6 BUG,是个高手的进来看看~~~~~~~~~~~~~~~~~~~~~~~~
- 老的 Turbo Basic 程序员转 Delphi 的一些理解(从 DOS 下语言转型的程序员请)...
- 请问,把一张表的记录(多个字段值)select出来过后,现把这个记录保存起来,用以保存这个记录的变量该怎样来定义呢?delphi中有没有象c
- Delphi重安装失败,请帮我,急!!!_依旧!
- 如何在java中调用delphi的dll!急!!
- 我想实现一个类似于delphi的表单如何实现。在线等/
- Delphi重安装失败,请帮我,急!!!
- 如果开发工具是Delphi,600bps的带宽下你,采用那种架构阿?(高手来看)
- 关于delphi的一点新问题??
- 到底是谁的错误呀!为什么用Delphi编写多页浏览器会这样难呢?大家一起来讨论!
- Delphi的性能怎样?
- Delphi+Sql Server2000的任意条件查询如何实现。请举例!
- 向高手请教!我用delphi自带的帮助制作工具制作了一个帮助但怎么挂到程序去呢??
- 关于delphi接口编程。
- Delphi 如何计算DBGridEH 列 = 列值+文本框值
- 【求助】关于字符串合并时加引号的问题
TDeviceInfo = class
public
id: Integer;
devName: string;
end;var
i: integer;
adev: TDeviceInfo;
Info1,Info2,Info3: TDeviceInfo;
devInfo: TList;begin
devinfo := TList.create;
info1:= TDeviceInfo.Create;
info1.id := xx;
info1.devname = 'xxx';
devinfo.add(info1);
//info2
....
//info3
....
//使用示例
for i:=0 to devInfo.length-1 do
begin
adev:= (TDeviceInfo) devinfo[I];
......
end;
devinfo.free; //最后使用完了,要释放掉。
end;
再定义该 结构体的动态数组,
使用时,可以动态定义动态数组的长度。
type
TDeviceInfo = record
id: Integer;
devName: string;
end;var A:array of TDeviceInfo; // 声明动态数组
begin
Rec:=100; // 动态数组长度
SetLength (A, Rec); // 设置的动态数组长度
A[0].id:=5; // 给数组中的结构体赋值
A[0].devName:='MyStr'; // 给数组中的结构体赋值
end;
格式可以是xml/json/ini
TDeviceInfo = record
id: Integer;
devName: string;
end;
var A:array of TDeviceInfo; // 声明动态数组
begin
// 固名思议是:动态数组,设置也应该是动态才合理
SetLength (A, Length(A)+1); // 设置的动态数组长度
A[High(A)].id:=5; // 给数组中的结构体赋值
A[High(A)].devName:='MyStr'; // 给数组中的结构体赋值
end;