原创 COM 數組參數
function TAutoCls.SetArray(iMode: Integer; vAry: OleVariant): WideString;var i,j:Integer ; s:string;begin case iM
2020-02-20 23:30:10
原创 RzListView
//------------------------------------RzListView選擇新行並取消上次選擇的痕跡 (顯示的虛線框)lvR
2020-02-20 23:30:10
原创 ocx控件引用
1、導入後面板如沒有顯示圖標，則可在Environmet Options 中 選擇Ignore special ColClass Flags when importing中 Can Create 2、導入成功但不能使用，如版本升級過(
2020-02-20 23:30:10
1
原创 像拍電影一樣做軟件-資源管理的規劃、預算不協調的根本原因
資源管理的規劃：1、管理層要充分了解項目類型和所關聯到的業務2、構建一個人才儲備數據庫3、使用人才數據庫作爲資源分配的參照4、定期對數據庫中的人員信息進行維護和更新5、設定人才戰略規劃，依據項目和業務需要補充適當的人員6、崗位輪換，最大限
2020-02-20 23:30:10
原创 File
-------------------------- 加載含換行符的文件（如QQ聊天記錄)//readln 不區分換行符(#10)，替換爲空字符assignfile(lTextFile,mFile); reset(lTextFile);
2020-02-20 23:30:09
原创 C#綁定Delphi的Dll多事件出錯，ErrorCode=-2147220990
綁定任何一個都可以，但綁定多個就出錯ErrorCode=-2147220990，把下面的ckSingle，改爲ckMulti，測試通過。 delphi中TMyClass.Initialize的FConnectionPoint:=FCon
2018-09-01 02:37:22
原创 mac os libray not loaded:(加載dylib出錯)
用Delphixe10調用一個三方的dylib，在mac上運行報錯 libray not loaded: 1、修改Project Options中的packages-Runtime Packages-Link with runtime p
2018-09-01 02:37:20
1
原创 delphixe Dll 斷點設置無效
菜單Project->Options...Delphi Compiler -Comiling -Debugging +Use debug .dcus 設置爲True -Linking +In
2018-09-01 02:37:19
原创 RichTextBox 全角引號變成半角解決方法
Private Function ReplaceRtfFullQuotes(ByVal TextRTF As String) As String Dim sText As String
2018-09-01 02:37:19
1
原创 GridView綁定字段及解決window.open 返回null
<a href= "javascript:void(null) " onclick= 'javascript:window.open( "ModifyJzpz.aspx?pzh=<%#DataBinder
2018-09-01 02:37:19
1
原创 判斷編繹的平臺是32bit還是64bit
{$ifdef CPUX64} lblVision.Caption := lblVision.Caption + '(64bit)'// 64 bit compiler used; {$else}
2018-09-01 02:37:19
1
原创 OpenDialog.Execute 成功後再設置OpenDialog.InitialDir無效
OpenDialog.FileName :=''; //需先清空 OpenDialog.InitialDir:='c:\';
2018-09-01 02:37:19
原创 保存爲UTF-8格式的Txt文件
procedure SaveUTF8File(const AFileName: string; AListText: TStringList); var Latin1Encoding: TEncodi
2018-09-01 02:37:19
1