我如何在XE7中使用临时表,就像我们在delphi 2010上使用组件ttable一样

时间:2017-01-27 12:34:25

标签: delphi delphi-xe7

我试图在XE7中删除系统,我需要知道如何使用临时表,就像我们在delphi 10上使用组件ttable一样。

例如。这是在delphi 2010中完成的.. 我需要在delphi xe7中使用临时表。

请帮帮我

if FileExists(gs_temppath + '\Findings.db') then
 begin
with Table_Findings do
begin
  Close;
  DatabaseName := gs_temppath;
  TableName := 'Findings.db';
  DeleteTable;
end;
 end;
with Table_Findings do
begin
   Close;
  DatabaseName := gs_temppath;
  TableName := 'Findings.db';
  TableType := ttDefault;
  FieldDefs.Clear;
  FieldDefs.Add('TestNameID', ftInteger);
  FieldDefs.Add('TestID', ftInteger);
  FieldDefs.Add('TestHead', ftString, 64);
  FieldDefs.Add('Test', ftString, 64);
  FieldDefs.Add('Finding', ftString, 255);
  FieldDefs.Add('Range', ftString, 250);
  FieldDefs.Add('Unit', ftString, 32);
  FieldDefs.Add('Extra', ftString, 100);
   FieldDefs.Add('ExtraFinding', ftString, 100);
  FieldDefs.Add('SampleNo', ftString, 32);
  FieldDefs.Add('Flag', ftString, 3);
  FieldDefs.Add('IsSubjective', ftString, 1);
  FieldDefs.Add('IsHeading', ftString, 1);
  FieldDefs.Add('CptCode', ftString, 100);
  CreateTable;
end;

0 个答案:

没有答案