真的没有办法吗? (50分)

I

incool

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-20

• #1

在考虑格式的前提下,怎样才能把数据库(Table或DBGrid)中的数据转化、导出到一个文本文件，请给出完整算法和详细操作步骤(我很菜^_^)!

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-20

• #2

我好象回答过同样的问题，可能没有提交：
var
st:TStrings;
s:string;
i:Integer;
begin
s:=TStringList.Create;
table.First
while not(table.eof)do

begin
s:=table.Fields[0].AsString;
for i:=1 to table.FieldCount-1do

s:=s+','+table.Fields.AsString;
st.add(s);
table.Next;
end
st.saveToFile('c:/temp.txt');
st.Free;
end;

 

I

incool2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-03

• #3

begin
st := TStringList.Create;
try
Table1.First;
while not Table1.Eofdo
begin
sRec := '';
for I := 0 to Table1.FieldDefs.Count - 1do
begin
iSize := 10;
if Table1.FieldDefs.DataType in sizeType then
iSize := Table1.FieldDefs.Size;
sField := Copy(Trim(Table1.Fields.AsString) + StringOfChar(' ', iSize), 0, iSize);
sRec := sRec + sField+' ';
end;
st.Add(sRec);
Table1.Next;
end;
st.SaveToFile(FileName);
finally
st.Free;
end;
end;

 

I

incool

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-03

• #4

多人接受答案了。