数据可以打印,但是怎样把数据导出成txt文件?
例如:
--- 一般用户列表 --- 2001-6-16 借书号 : 0000000001
姓名 : 张舜
性别 : 男
身份号 : 01
身份描述 : 学生
身份证号 : 420802780701031
...............................
借书号 : 0000000002
姓名 : 吴春华
性别 : 男
身份号 : 01
身份描述 : 学生
身份证号 :
...............................
要得到以上的文本信息,怎么办?
例如:
--- 一般用户列表 --- 2001-6-16 借书号 : 0000000001
姓名 : 张舜
性别 : 男
身份号 : 01
身份描述 : 学生
身份证号 : 420802780701031
...............................
借书号 : 0000000002
姓名 : 吴春华
性别 : 男
身份号 : 01
身份描述 : 学生
身份证号 :
...............................
要得到以上的文本信息,怎么办?
adoquery1.SaveToFile(savedialog1.FileName,pfxml);
savedialog1可以选择表的路径。
加分!!!!
adoquery1.SaveToFile(savedialog1.FileName,pfxml);
savedialog1可以选择表的路径。adoquery.SaveToFile(c:\,xx.txt);加分!!!!哈哈。
adoquery1.SaveToFile(savedialog1.FileName,pfxml);
用这两种办法都不行啊!
var
tmpStr :String;
i :integer;
myFile :TextFile;
begin
SaveFileName.Filter:='文本文件(逗号分隔)|*.txt';
if Savefilename.Execute then
begin
tmpStr:=Savefilename.FileName ;
AssignFile(MyFile,tmpstr);
rewrite(MyFile);
tmpStr:='';
for i:=0 to LogList.Count-1 do
begin
tmpLoginfo:=LogList.Items[i];
tmpstr:=inttostr(tmpLoginfo.logID);
tmpstr:=tmpstr+','+tmpLoginfo.username ;
tmpstr:=tmpstr+','+tmpLoginfo.moduleName ;
tmpstr:=tmpstr+','+tmpLoginfo.ActionName ;
tmpstr:=tmpstr+','+tmpLoginfO.ActionResult ;
tmpstr:=tmpstr+','+DATETIMETOSTR(tmpLoginfo.ApplyDate );
Writeln(MyFile,tmpStr);
end;
closeFile(MyFile);
end;
writeln(f,'aaa',#12,'bbb');
得到aaa bbb 其中aaa与bbb中间是个黑色的小方块。
正确的该怎么样?
procedure TSaveDate.Button1Click(Sender: TObject);
var id:textfile;
i:integer;
Tab:string;
label TOP;
begin
TOP:
savedialog1.Execute;
if copy(savedialog1.FileName,2,2)=':\'then
begin
if fileexists(savedialog1.FileName)=true then
begin
i:=Application.MessageBox(PCHAR(savedialog1.FileName+'确定要替换它吗?'),'确认提示!',1+32+256);
if i<>1 then
begin
GOTO TOP;
end;
end;
assignfile(id,savedialog1.FileName);
rewrite(id);
if radiobutton1.Checked then Tab:=#9;
if radiobutton2.Checked then Tab:=';';
if radiobutton3.Checked then Tab:=',';
if radiobutton4.Checked then Tab:='|';
with user.Grid1 do
begin
for i:=0 to rowcount-1 do
write(id,Cells[0,i]+Tab+Cells[1,i]+Tab+Cells[2,i]+Tab+
Cells[3,i]+Tab+Cells[4,i]+Tab+Cells[5,i]+Tab+
Cells[6,i]+Tab+Cells[7,i]+Tab+Cells[8,i]+Tab+
Cells[9,i]+#13+#10);
end;
closefile(id);
close;
end;
end;