- 博客(5)
- 资源 (6)
- 收藏
- 关注
原创 Delphi VCL DLL TStyleManager 导致主程序崩溃
library VCLStyleDLL; {$R 'Style.res' 'Style.rc'} uses VCL.Styles, VCL.Themes, VCL.SysStyles; // to gain access to TSysPopupStyleHook {$R *.res} begin TStyleManager.TrySetStyle('Glossy', fa...
2019-01-02 17:47:54
861
原创 Delphi TXMLDocument 导出文件格式自动换行
xml.Options := xml.Options + [doNodeAutoIndent]; // 缩进格式,而不是全在一行 xml.NodeIndentStr := #9;//使用TAB字符缩进
2018-11-21 09:20:35
765
1
原创 Com+ 导出excel 格式
Uses ComObj; var xlapp: variant; begin if not VarIsEmpty(xlapp) then begin xlapp.DisplayAlerts := False; xlapp.Quit; VarClear(xlapp); end; try xlapp := CreateOleObject('E...
2018-11-16 09:42:09
236
原创 Delphi TXMLDocument 解析,返回
收到报文<?xml version="1.0" encoding="UTF-8"?><A> <B>111111</B> <C>2015-11-10</C> <D Type=””> <E>S00001</E> &
2018-06-27 15:30:18
2140
原创 Delphi 操作EXCEL折线图
//(二)周仓位变化折线图 l_left:= 1; l_top := xlssheet1.Range['A44','A44'].top + 10; l_Width := 500; l_Height:= xlssheet1.Range['A44','A44'].RowHeight*12; /...
2018-06-20 13:46:03
1675
WINDOWS服务启动EXE
2018-07-17
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人