- 2023-10-11获取当前输入光标（插入点的位置）
oleacc.pas{*******************************************************}{}{CodeGearDelphiRuntimeLibrary}{}{
- 2023-06-28ADO控件：显示数据（CListCtrl）
//TODO:Addextrainitializationhere m_listLinkInfo.SetExtendedStyle(LVS_EX_GRIDLINES|LVS_EX_FULLROWSELECT); inti=0; m_listLinkInfo.InsertColumn(i++,"ID", LVCFMT_LEFT,90); m_listLinkInfo.InsertColumn(i++,"Name", LVCFMT_LE
- 2023-06-27delphi XLS文件另存为xlsx格式
ExcelApp.activeworkbook.saveas(AxlsExportFile+'\华宝导入'+IntToStr(n)+'.xlsx',51); https://www.cnblogs.com/guorongtao/p/13432383.html procedureSaveAs(constFilename:WideString;FileFormat:OleVariant;Password:OleVariant;
- 2023-06-18olevariant序列
olevariant序列///<author>cxg2020-12-31</author>unityn.variant;interfaceusesclasses,zlib,Variants,SysUtils;{$IFNDEFUNICODE}typeRawByteString=AnsiString;{$ENDIF}{$ifCompilerVersion<18}//beforedelphi2007type
- 2023-06-02Delphi Variant 通用类型[5] OLEVariant 的空值判定和释放
DelphiVariant通用类型[5]OLEVariant的空值判定和释放 1、OLEVariant的空值判定varv:OLEVariant;beginv:='TaoRoy2023';ifVarIsEmpty(v)orVarIsNull(v)thenShowMessage('v为空或null.')elseShowMessage('v不为空或null.');