H
hyty
Unregistered / Unconfirmed
GUEST, unregistred user!
在DELPHI中如何定义一个动态的记录型数组？结构如：name:string; age:integer;.....
如何对数组成员进行赋值？如何清空该数组？谢谢!
如何对数组成员进行赋值？如何清空该数组？谢谢!
Z
zqw0117
Unregistered / Unconfirmed
GUEST, unregistred user!
type
TUserInfo = record
Name: string;
Age: Integer;
...
end;
TUsers = array of TUserInfo;
var
Users: TUsers;
I: Integer;
begin
SetLength(Users, 10); //设置数组元素为10个
for I := 0 to Length(Users) - 1 do
begin
Users.Name := 'User' + IntToStr(I);
Users.Age := 20;
end;
Users := nil; //清空数组
end;
TUserInfo = record
Name: string;
Age: Integer;
...
end;
TUsers = array of TUserInfo;
var
Users: TUsers;
I: Integer;
begin
SetLength(Users, 10); //设置数组元素为10个
for I := 0 to Length(Users) - 1 do
begin
Users.Name := 'User' + IntToStr(I);
Users.Age := 20;
end;
Users := nil; //清空数组
end;
H
hhjjhhjj
Unregistered / Unconfirmed
GUEST, unregistred user!
type
auserinfo = record
name: String;
age:integer;
end;
Tmyuserinfo = array of auserinfo;
赋值
VAR
aaa:Tmyuserinfo;
Setlength(aaa,3);
aaa[1].name := 'ddd';aaa[1].age := 11;
清空该数组
Setlength(aaa, 0 );
aaa := Nil;
auserinfo = record
name: String;
age:integer;
end;
Tmyuserinfo = array of auserinfo;
赋值
VAR
aaa:Tmyuserinfo;
Setlength(aaa,3);
aaa[1].name := 'ddd';aaa[1].age := 11;
清空该数组
Setlength(aaa, 0 );
aaa := Nil;
L
lisongmagic
Unregistered / Unconfirmed
GUEST, unregistred user!
agree with zqw0117
数组是生存期自管理的，
Users := nil;就清空数组了，
不需要Setlength(Users, 0 );
数组是生存期自管理的，
Users := nil;就清空数组了，
不需要Setlength(Users, 0 );
H
hyty
Unregistered / Unconfirmed
GUEST, unregistred user!
多谢各位！[
]
]