快要收工了，最后一个未解决问题！静候佳音！搞定马上给分

Question

1、
var I: Integer;
begin
  for I := 1 to 8 do
  begin
    ADOQuery1.Next;
    //读数据
  end;
end;
2、
begin
  ADOQuery1.SQL.Text := 'create table TempTable(FlagId text(10) default "1~8")';
  ADOQuery1.ExecSQL;
end;
3、
begin
  ADOQuery1.SQL.Text := 'drop table TempTable';
  ADOQuery1.ExecSQL;
end;
—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
    

Answer 1

2有问题，该为：
var I: Integer;
begin
  ADOQuery1.SQL.Text := 'create table TempTable(FlagId Integer)';
  ADOQuery1.ExecSQL;
  for I := 1 to 8 do
  begin
    ADOQuery1.SQL.Text := 'insert into TempTable values(' + IntToStr(I) + ')';
    ADOQuery1.ExecSQL;
  end;
end;—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————

Answer 2

试试中。如果用Select Top 8 IntoWhere ... ,如何在其生成表中加入一字段？

Answer 3

我先用了Select Into..然后Alter一下搞定！：）