用代码:var I, J: Integer; TxtFile: TStrings begin TxtFile:=TStringList.Create; for I:=0 to ParadoxTable.RecordCount-1 do begin TxtFile.Add(); for J:=0 to ParadoxTable.Fields.FieldCount-1 do TexFile.Strings[I]:=TexFile.Strings[I]+ParadoxTable.Fields.Items[J].AsString; ParadoxTable.Next; end;
I, J: Integer;
TxtFile: TStrings
begin
TxtFile:=TStringList.Create;
for I:=0 to ParadoxTable.RecordCount-1 do
begin
TxtFile.Add();
for J:=0 to ParadoxTable.Fields.FieldCount-1 do
TexFile.Strings[I]:=TexFile.Strings[I]+ParadoxTable.Fields.Items[J].AsString;
ParadoxTable.Next;
end;
TexFile.SaveToFile('c:\dd.txt');
TexFile.Free;
QRrport加上QRTextFilter1控件,
Preview報表后Save成txt文件就ok.
FastReport也可以.
用ACCESS打开后直间复制+粘贴到TXT即可!