2,498
社区成员
发帖
与我相关
我的任务
分享
type
Tuserinfo = record
name: string[12];
password:string[12];
Temp:Array[0..511] of Char;
end;
Puserinfo = ^Tuserinfo;
//添数据
Function add(user:Puserinfo):Boolean;
begin
with DM.ADOQuery1 do
begin
Append;
FieldByName('name').AsString:=user.name;
FieldByName('password').AsString:=user.password;
FieldByName('fpTemp').AsString:=user.Temp;//这样做肯定是会掉数据的:(
//FieldByName('fpTemp').AsVariant:=user.fpTemp;//这个也不行
//上面一行的错误提示[Error] Unit7.pas(52): Incompatible types: 'Variant' and 'Array'
Post;
end;
end;
//获得返回记录
procedure TForm7.Button5Click(Sender: TObject);
var
user:Puserinfo;
//a:array [0.511] of Char;
begin
new(user);
zeromemory(user,sizeof(Tuserinfo));
user.password:=Dm.ADOQuery1.Lookup('name','test','password');
user.fpTemp:=ADOQuery1.Lookup('name','test','fpTemp');//也是Incompatible types: 'Variant' and 'Array'的错误
DisPose(user);
showmessage(user.password);
end;