1、我想同时在memo中显示不同的颜色,比如一段文件的为黑色,一段文字为红色,有什么方法吗?
2、我使用DELPHI自带的EXCEL组件,获取数据自动保存EXCEL文件,当我保存了多个EXCEL文件后,我打开其中一个,会连同多个一起打开,想不出来为什么,请教大家了 ExcelApplication_Report.Connect ;
ExcelWorkbook_Report.ConnectTo(ExcelApplication_Report.Workbooks.Add(EmptyParam,0));
ExcelWorksheet_Report.ConnectTo(ExcelApplication_Report.Sheets[1] as _Worksheet);
.......
for SampleNum:=6 to High(ArraysForce) do
begin
// Application.ProcessMessages ;
if Terminated then Break ;
ExcelWorksheet_Report.Cells.Item[SampleNum,1]:=inttostr(SampleNum-3);
ExcelWorksheet_Report.cells.Item[SampleNum,3]:=ArraysForce[SampleNum-3];
ExcelWorksheet_Report.cells.Item[SampleNum,2]:=ArraysStroke[SampleNUm-3];
npercent:=SampleNum;
synchronize(SHowPercent)
end;
................
ExcelWorkbook_Report.Saveas(pathstr+'.\'+FilesStr+'.\'+NameStr+'.xls',xlNormal,'','',false,false, xlNoChange, xlLocalSessionChanges, EmptyParam,EmptyParam, EmptyParam,0,0);
ExcelWorkbook_Report.Close;
ExcelApplication_Report.Disconnect ;
2、我使用DELPHI自带的EXCEL组件,获取数据自动保存EXCEL文件,当我保存了多个EXCEL文件后,我打开其中一个,会连同多个一起打开,想不出来为什么,请教大家了 ExcelApplication_Report.Connect ;
ExcelWorkbook_Report.ConnectTo(ExcelApplication_Report.Workbooks.Add(EmptyParam,0));
ExcelWorksheet_Report.ConnectTo(ExcelApplication_Report.Sheets[1] as _Worksheet);
.......
for SampleNum:=6 to High(ArraysForce) do
begin
// Application.ProcessMessages ;
if Terminated then Break ;
ExcelWorksheet_Report.Cells.Item[SampleNum,1]:=inttostr(SampleNum-3);
ExcelWorksheet_Report.cells.Item[SampleNum,3]:=ArraysForce[SampleNum-3];
ExcelWorksheet_Report.cells.Item[SampleNum,2]:=ArraysStroke[SampleNUm-3];
npercent:=SampleNum;
synchronize(SHowPercent)
end;
................
ExcelWorkbook_Report.Saveas(pathstr+'.\'+FilesStr+'.\'+NameStr+'.xls',xlNormal,'','',false,false, xlNoChange, xlLocalSessionChanges, EmptyParam,EmptyParam, EmptyParam,0,0);
ExcelWorkbook_Report.Close;
ExcelApplication_Report.Disconnect ;
解决方案 »
- 能否将字符串(文本)动态转化为一个控件的事件?急!
- 向高手营救.我做了一个程序是在网格里面输入数据出错.请帮我指点.100分酬谢
- 编译程序时选中build with runtime package与不选择有什么区别?
- idhttp怎么post xml格式的数据包
- 客户端第一次打开DBGird正常,关闭后再打开表格排列不正常
- 我买到《高手突破》了
- 请问哪儿有报表控件和自动生成帮助的控件下载,谢谢!
- 屏幕取词,当屏幕上的词完全被档住时是否可通过API取到此词?
- Delphi treeview 控件中 CustomDraw 和 CustomDrawItem到底是怎麼用, 在什麼情況下用?
- 我刚刚学习ADO ,在使用ADO的程序运行的时候总是提示输入用户名和密码 我如何得让他自动登录呢?
- Delphi保存图片为空
- 希望tperlregex比较熟的高手,看日期这个正则式怎么弄?
RichEdit1.SelAttributes.Color :=clRed;
这个不是真正关闭吗?我用的是DELPHI自带的控件?