数据的导出

COLOR="#008000">{*********************************************************************************} var fSQL:textfile;
i:integer;
strFields:string;
strTableName:string;
begin
assignfile(fSQL,'C:.SQL');
rewrite(fSQL);
strTableName:='WpKC';
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('SELECT * FROM '+strTableName);
Query1.open;
if Query1.RecordCount >0 then
begin
strFields:='';
for i:=1 to Query1.FieldCount-1 do {