我想你应该这样定义:
type
TUserInfo = Record
FUserID,FUserName,FPhone,FMemo:string;
end;
type
TUserInfo = Record
FUserID,FUserName,FPhone,FMemo:string;
end;
解决方案 »
- 如何默认DSPACK的分辨率
- delphi 如何让function返回array of 类型的结构
- 如何能实时监听邮箱中有新邮件到达。(可加分到100)
- TDBCheckBox.Create使用的小问题
- 关于IntraWeb发布问题??编译成ISAPI发布时候 就找不到数据库了!
- 如何给非焦点的窗口发alt+a的组合键消息?
- button颜色控件
- 数据类型
- fastreport中报"Undeclared indentifier:'recordcount'"错误,不知该如何解决??
- 能否用线程解决我的问题?如果可以要怎么做?具体问题在文中
- 我发现修复后的Access数据库执行效率大幅提高!欢迎大家进来讨论,有分
- lylix2_open 的注册号和自动号
TUserInfo = Record
FUserID,FUserName,FPhone,FMemo:String;
因为在记录类型前面加一个T,别人看了会认为是一个类最好是var
UserInfo:TUserInfo
... UserInfo.FUserID:='0001';
UserInfo.FUserName:='xm';
...
PUserInfo = ^TUserInfo;
TUserInfo = Record
FUserID,
FUserName,
FPhone,
FMemo:String;
end;
var
i: Integer;
UserInfo:PUserInfo;
List: TList;
begin
List := TList.Create;
try
for i := 0 to 100 do
begin
new(UserInfo);
UserInfo^.FUserID:='0001';
UserInfo^.FUserName:='xm';
List.Add(UserInfo);
end;
finally
//注意释放指针
list.Free;
end;
UserInfo.FUserID:='0001';
UserInfo.FUserName:='xm';
type
TUserInfo = Record
FUserID,FUserName,FPhone,FMemo:Array of String;//动态数组,长度你可以控制
end;
var
MyUserInfo:TUserInfo;
SetLength(MyUserInfo.FUserID,100);
SetLength(MyUserInfo.FUserName,100);
...
之后你就可以象使用数组一样使用它了.
获得第n条记录的
Fuserid,FUserName,FuserPhone字段的数据。
能不能举例:
获得第n条记录的
Fuserid,FUserName,FuserPhone字段的数据。
UserInfo:PUserInfo;
begin
UserInfo := List[n];
FUserid := UserInfo^.FUserInfo;
FUserName:= UserInfo^.FUserName;
FuserPhone:= UserInfo^.FuserPhone;end;