原创 DELPHI的編譯指令
DELPHI的編譯指令{$IFDEF WIN32} -- 這可不是批註喔! 對於Delphi來說﹐左右大括號之間的內容是批註﹐然而「{$」(左括號後緊接着貨幣符號)對於Compiler(編譯器)而言並不是批註﹐而是寫給Compiler看的
2020-06-16 16:07:03
原创 Delphi--Stream和Variant的轉化
網上廣爲流傳的兩個函數，確實好用。記錄一下procedure VariantToStream (const v : OleVariant; Stream : TMemoryStream); var p : pointer; begin
2020-06-16 16:07:03
原创 SQL學習筆記!
SELECT *FROM [TABLENAME]WHERE (ID IN (SELECT TOP [頁容量] ID FROM [TABLENAME] WHERE ID IN
2020-06-16 16:07:03
原创 彈出數庫聯接窗口!
PromptDataSource(ParentHandle: THandle; InitialString: WideString): WideString;此函數就可以彈出數據庫的聯接窗口，可以讓用戶選擇連接的數據庫類型級數據庫此函數在
2020-06-16 16:07:03
原创 Delphi 嵌入彙編學習
Function H32ToLow(Sdigit:LongWord):LongWord; Asm MOV EAX,Sdigit BSWAP EAX Mov Sdigit,AX End; Function H16ToLow(
2020-06-16 16:07:03
原创 Memo控件光標定位過程
procedure CursorPosition(Control: TMemo; col, row: integer);var Pos: integer;begin //檢查行數是否超過了實際行數! 超過時即選最後一行 if Col
2020-02-23 04:01:45
原创 Delphi調節音量
一、調節全部音量 1．先在窗體中添加一個trackbar控件，可通過改變它的位置來調節音量，在trackbar1的屬性中，我們把Max屬性修改成25
2020-02-23 04:01:45
原创 很經典的十五句話，從別人的blog上看來的!
1，記住該記住的，忘記該忘記的。改變能改變的，接受不能改變的 2，能沖刷一切的除了眼淚，就是時間，以時間來推移感情，時間越長，衝突越淡，彷彿不
2020-02-23 04:01:45