我有一个这样的程序,你可以试一试
var
I: Integer;
Str: String;
StrList: TStringList;//用于存储数据的字符列表
begin
StrList := TStringList.Create;
try
with Table1do
begin
First;
while not Eofdo
begin
Str := '';
for I := 0 to FieldCount-1do
Str := Str + Fields.AsString + #9;
StrList.Add(Str);
Next;
end;
StrList.SaveToFile('C:/WINDOWS/Desktop/test.xls');
Application.MessageBox('用户档案已经成功导入 TEST 文件中!','提示',MB_OK);
end;
StrList.Free;
except
StrList.Free;
end;
end;