word2000的都能转换,这种也能的吧?主要是我不知怎么转换成word2000的那种。
解决方案 »
- 为什么一下子弹出两个界面
- 字符串处理,现在我有一个"AD|DSSF|FF|SDDDF|",现在我想删除"FF|",得到一个新的字符串"AD|DSSF|SDDDF|".请问如何做!
- rave报表,在打印的时候会显示一个对话框,如何汉化它?
- 请问如果利用代码关闭 Explorer 这个窗口
- 一个循环来判断dbgrid 中的数据,大家看看为什么不行
- 请问高手:选择数据字典我该用哪一种下拉式控件?
- 窗体退出时渐渐缩小的效果怎么做的?
- dbgrid的ondrawdatacell与ondrawcolumncell,有什么区别?
- 关于listview控件的问题?
- 现在用delphi开发什么程序最吃香!!!
- 简单问题:如何在Canvas上输出背景为透明的文字?
- 一个有深度的问题(有关systray编程的),33分聘请高手(我很穷:-()......
var
dataoutfile:textfile; {数据输出文件}
fieldnumber,i,j,fieldlen,blanknumber,datalen:integer;
tempstr,s:string;
begin
{打开数据表}
if table1.active=false then
table1.open;
table1.DisableControls;
table1.First;
{指定数据输出的文本文件}
savedialog1.Execute;
assignfile(dataoutfile,savedialog1.filename);
rewrite(dataoutfile);
{得到数据表的字段数}
fieldnumber:=table1.FieldCount-1;
while not table1.Eof do
begin
s:=''; {s用来存取一行记录}
for i:=0 to fieldnumber do
begin
tempstr:=''; {用来存取一个字段}
fieldlen:=table1.Fields[i].Size; {取字段长度}
tempstr:=table1.Fields[i].asstring;{取字段内容}
datalen:=length(tempstr); {得到内容长度}
blanknumber:=fieldlen-datalen; {确定应填充空格长度} for j:=1 to blanknumber do
begin
tempstr:=tempstr+' ';
end;
s:=s+tempstr;
end;
writeln(dataoutfile,s);
table1.next;
end;
{指定将输出的文本文件}
closefile(dataoutfile);
table1.EnableControls;
end;
//FileName为包括路径扩展名的文件名
//JG为Field的间隔符,可用#9;并把FilaName的文件扩展名定为。XLS,
//则输出的文件可被EXCEL直接读取
procedure SendToExc(DataSet :TDataSet;FileName:string;JG:char);
var i :Integer ;
str : String ;
StrList : TStringList ;
begin
try
//添加报表内容
StrList := TStringList.Create ;
DataSet.Active := True ;
DataSet.First ;
Dataset.DisableControls ;
while not DataSet.Eof do
begin
str := '' ;
for i := 0 to DataSet.FieldCount-1 do
str := str + DataSet.Fields[i].AsString + #9;
StrList.Add(str);
DataSet.Next;
end;
StrList.SaveToFile(FileName) ;
DataSet.EnableControls ;
except
StrList.Free ;
end;
end;
可以发个E感谢我:[email protected]