原创 EOutOfResources字符異常
近日，用Delphi編程時，遇到一個莫名其妙的異常：EOutOfResources，這是一個可以重複再現的異常。開始以爲是程序中創建的對象太多，導致佔用了過多的資源，引起了這個異常。於是在代碼中將許多不必要創建的對象統統刪減，對代碼進行了
2018-08-31 17:17:30
56
原创 TDBEdit(Sender);
var FOJ :TDBEdit; QCBZ,QCBZ_,ShJ :Double;begin FOJ.Font.Color := clBlack; QCBZ := StrToFloat(QCBZh.Field.Value)
2018-08-31 17:17:30
1
原创 hSem: HWND;
hSem: HWND; hSem := CreateSemaphore(nil, 0, 1, 'BeyondERP'); if (hSem <> 0) and (GetLastError() = ERROR_ALREADY_EX
2018-08-31 17:17:29
原创 下載位置
http://61.dc.ftn.qq.com/ftn_handler/36e179f39b27a310eb27547b3c03332213fca0400473098a0f18c14922203ef9ac885136687c54bdbfd
2018-08-31 17:17:29