with STable do begin
Active := False;
DatabaseName:=Filepath;
TableName:='TempTable';
TableType:=ttDBase;
with FieldDefs do
begin
add('id',ftstring,10,true);
IndexDefs.Add('','id',[ixPrimary,ixUnique]);
CreateTable;
end;
end;
Active := False;
DatabaseName:=Filepath;
TableName:='TempTable';
TableType:=ttDBase;
with FieldDefs do
begin
add('id',ftstring,10,true);
IndexDefs.Add('','id',[ixPrimary,ixUnique]);
CreateTable;
end;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货