procedure tform1.create_tbl; var tbl:ttable; begin tbl:=ttable.create(self); // 如没有声明中的"tform1."，Delphi不认这个self with tbl do begin datebasename:=;dbdemos'; tablename:='my_tbl'; with fielddefs do begin clear; add('No',ftInteger,0,false); add('Name',ftString,0,false); ... end; with indexdefs do begin clear; add('primary','no',[ixPrimary,ixUnique]); ... end; CreateTable; end; end;
收藏
推荐
评论加载中…
