小编use*_*392的帖子

我想我必须是密集的,我是Delphi的新手,我正在尝试将sql结果读入类中以便轻松访问它.我创建了一个虚拟类来测试这样:

type
test_class = class
 id:integer;
 job_number:string;
 cust_name :string ;
 procedure get_record_data;
end;

然后我调用这样的程序:

procedure test_class.get_record_data;
begin
 test_class.Create;
 test_class.id := tform3.adoQuery1.FieldByName('id').AsInteger;
 test_class.job_number := tform3.adoQuery1.FieldByName('job number').AsString;
 test_class.cust_name := tform3.adoQuery1.FieldByName('customer name').AsString;
end;

然后我测试我的结果如下:

procedure TForm3.Button1Click(Sender: TObject);
begin
 showmessage('Id number is ' + inttostr(test_class.id));
end;

showmessage行抛出一个编译器错误,表示预期的方法标识符.

以test_class.id :=,test_class.job_number:=和test_class.cust_name:= all开头的行给出了我预期的相同方法标识符以及缺少运算符或分号错误.

我究竟做错了什么？有没有更简单的方法来解决这个问题？完成后,null值会出现问题吗？