共 9 篇文章 |
|
注意程序结束时释放变量?ExcelApp:=unassigned;???更改?Excel标题栏:?ExcelApp.Caption?:=?’应用程序调用?Microsoft?Excel’;?XlApp,XlWorkbook,XlSheet:Olevariant;XlSheet:=Unassigned;Range:=Xlsheet.range[XlSheet.cells[1,1],XlSheet.cells[1,Q.FieldCount-DelCollist.count]];while ExcelApp.worksheets[1].cells[iRow, 1].text '... 阅204 转0 评0 公众公开 15-04-29 16:14 |
导出Excel用到的有两个,一个是SaveDialog,一个ExcelApplication就行了 具体的导出函数如下 :procedure QueryToExcel(Q:TAdoQuery;Tit:string;FileName:string);var.XlApp,XlWorkbook,XlSheet:Olevariant;XlSheet:=Unassigned;Xlapp:=Unassigned;AsString'''') thenXlsheet.cells[i+1,j+1]:=''''''&... 阅31 转0 评0 公众公开 15-04-29 16:13 |
xml.TForm1 = class(TForm)procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);Button1Click(Sender: TObject);Xml: TXMLDocument;Rootnode,node : IXMLNode;Xml := TXMLDocument.// Xml.LoadFromFile(''aaa.xml'');Rootnode := Xml.DocumentElement := Rootnode;node := Xml.Rootnode.ChildNo... 阅30 转0 评0 公众公开 15-04-26 23:15 |
label 标签goto?的用法(Delphi)阅读:8762011-07-23 15:27.标签:gotodelphi杂谈。Var是用来定义变量的关键字label是用来定义一个标签。先用label定义一个标签var.m,a:integer;label b ;b:write(''a='');readln(a);m:=300*a;writeln(''总价是 '',m);readln;goto b;end.label是个关键字可以定义多个标签,这里... 阅207 转0 评0 公众公开 15-04-22 12:57 |
//未排序? ShowMessage(List.Text);? //bbb ccc aaa? //排序? List.Sort; ?ShowMessage(List.Text);? //aaa bbb ccc? //倒排序? List.CustomSort(DescCompareStrings);? //调用排序函数? ShowMessage(List.Text);? //ccc bbb aaa? //假如:? List.Sorted := True; ?List.Add(''999''); ?List.Add(''000''); ?Li... 阅109 转0 评0 公众公开 15-04-17 06:41 |
图解:12个月的分月养生宝典 一月养肾防寒; 阅1 转自木云三君 公众公开 15-03-05 08:17 |
送你6种最简单的瘦身法。春天来了!春天来了,你的减肥模式开启了吗?很多人抱怨没时间健身,事实上只要每天抽出一点时间进行少量的运动也能带来健康回报。@生命时报 采访国内权威运动医学专家,为大家推荐随时都能做的6种运动。大家一起动起来塑造完美曲线吧!是不是想说:过完年再说?实习生丨李莹莹。主编丨凌陈。 阅1 转自傲世V才邦 公众公开 15-03-05 08:13 |