InsertRecord如何用?下面的程序如何改?

Question

procedure TForm1.Button2Click(Sender: TObject);
type
 Br=record
  data:string[9];
  name:string;
  dj:integer;
  sd:integer;
  ln:string[2];
  sum:integer;
 end;
var
 ZiLu:Br;
begin
 With ZiLu do
  begin
   data:=Edit1.Text;
   name:=Edit2.Text;
   dj:=strtoint(Edit3.Text);
   sd:=strtoint(Edit4.Text);
   ln:=Edit5.Text;
   sum:=strtoint(Edit6.Text);
  end;
 Query1.InsertRecord(ZiLu);
end;
[Error] Unit1.pas(87): Incompatible types: 'Array' and 'Br'

Answer 1

Query1.InsertRecord(ZiLu);//不能这样插入记录的,如下
Query1.InsertRecord([Br.data,Br.Name,Br.Dj.....]);//记得和字段对应