运行时生成SELECT语句（自动产生SQL脚本的技巧...）

    我要发表为table中数据生成SELECE语句的短小过程：

function GetSelectTable(Dataset: TTable): TStrings;
var
  i: Integer;
  str: string;
begin
  Result := TStringList.Create;
  try
    for i := 0 to DataSet.FieldCount-1 do
    begin
      if i = 0 then
        str := ''SELECT''
      else
        str := '','';
      str := str + '' '' + DataSet.Fields[i].FieldName;
      Result.Add(str);
    end;
    Result.Add(''FROM '' + DataSet.TableName)
  except
    Result.Free;
    Result := nil;
  end;
end;

    当然，你可以加上ORDER BY子句（只要反复使用索引域）...