原创 Class Demo [輸出文字到桌面]
type TcustCls = class private Fx, Fy: Integer; Fs: string; public procedure outPut(x, y: Cardinal; s:
2020-06-16 01:17:27
原创 隱藏任務欄程序圖標一例
procedure TForm1.BitBtn1Click(Sender: TObject); begin Application.MainFormOnTaskbar := False; end; procedure TForm1.Fo
2020-06-16 01:17:17
原创 OS CodePage_ID
函數：GetOEMCP:Cardinal; 返回值OEM的code-page的ID。 返回值代碼 037 IBM EBCDIC - U.S./Canada 437 OEM - United States 500 IBM EBCDIC
2020-06-16 01:17:17
原创 使用override需要注意的地方
使用override需要注意的地方 在override時，如果override的是procedure，則加上關鍵字inherited; 就會執行父類同名procedure的所有過程，然後再執行子類中特有的過程。如果ov
2020-06-16 01:17:17
原创 泛型1例
Tm = record h, w: Integer; end; uses Generics.Collections; var m1, m2: TList<Tm>; mr: Tm; i: Integer; b
2020-06-16 01:17:17
原创 有線網卡走私網，無線走公網
Local Geteway:192.168.10.254 Wifi Geteway:192.168.13.254 route delete 0.0.0.0 mask 0.0.0.0 192.168.10.254 route add 1
2020-06-16 01:17:17
原创 多線程臨界區Demo
var iCount: integer = 0; iThread: integer = 0; //線程計數 THreadID: Cardinal; CS: TRTLCriticalSection; //線程臨界區
2020-02-21 16:29:10
原创 類引用類型
類引用類型聲明 以上講到的類類型，一般不能直接對類類型操作，而只能對類的實例即對象操作。只有類方法以及類的構造和析構可以直接作用於類本身。那麼類引用類型是一種什麼樣的數據類型呢？類引用類型實際上就是指向某種類類型的指針，用這個指針可以引用
2020-02-21 16:28:59
原创 創建文件2
var Buf: TStringList; i: Integer; S, s1, sName, sExt: AnsiString; begin sExt := '.txt'; sName := 'NewFile';
2020-02-21 16:28:59
原创 創建文件1
var Buf: TStringList; i: Integer; S, s1, sName, sExt: AnsiString; begin sExt := '.txt'; sName := 'NewFile';
2020-02-21 16:28:59
原创 類事件
TcusCls = class private FonEvent: TNotifyEvent; published property onMsg: TNotifyEvent read FonEvent write
2020-02-21 16:28:59
原创 多級接口實現方法
{多級接口實現方法 } {DateTime:2013.11.7} iFace = interface ['{68252415-0850-4B0D-89B5-C7F41C1E13F1}'] function
2020-02-21 16:28:59
原创 運算函數
InterLockedDecrement(); InterlockedIncrement(); InterlockedExchange(); 點贊 收藏 分享 文章舉報 sea
2020-02-21 16:28:59
原创 什麼時候使用接口什麼時候使用抽象類[轉載]
什麼時候使用接口什麼時候使用抽象類 在一個面向對象的系統中，系統的各種功能是由許許多多的不同對象協作完成的。在這種情況下，各個對象內部是如何實現自己的對系統設計人員來講就不那麼重要了；而各個對象之間的協作關係則成爲系統設計的關鍵
2020-02-21 16:28:59
原创 匿名方法[2]
Tfun = REFERENCE to function(c, y: integer): integer; function Ta(x, y: integer; Tb: Tfun): integer; begin result :=
2020-02-21 16:28:59