<>
首部 function languages: tlanguages; $[sysutils.pas
功能 返回系統語言物件
說明 通過此函式可以得到系統的語言環境
參考 type sysutils.tlanguages
例子
///begin languages
procedure tform1.button1click(sender: tobject);
vari: integer;
begin
memo1.clear;
for i := 0 to languages.count - 1 do
memo1.lines.add(languages.name[i]);
end;
///end languages
&_
首部 function allocmem(size: cardinal): pointer; $[sysutils.pas
功能 返回乙個指定大小size的記憶體塊
說明 配合用freemem釋放資源
參考 function system.getmem
例子
///begin allocmem
procedure tform1.button1click(sender: tobject);
vari: pinteger;
begin
i := allocmem(sizeof(integer));
i^ := 100;
edit1.text := inttostr(i^);
freemem(i, sizeof(integer));
end;
///end allocmem
&_
首部 procedure addexitproc(proc: tprocedure); $[sysutils.pas
功能 新增乙個退出處理的過程
說明 建議用finalization部分取代
參考
例子
begin addexitproc
uses
shellapi;
procedure exitproc;
begin
shellexecute(0, 'open', 'calc.exe', nil, nil, sw_show);
end;
Delphi6實現匯入匯出功能
匯入匯出資料需要元件 opendialog 開啟選擇檔案視窗 uses中需要引入comobj 提供createoleobject方法進行com程式設計 思路 找到需要匯入的資料 依次遍歷每一行的資料，獲取到每一行物件的每個屬性值，依次插入到資料庫中。如下 procedure tform1.toolb...
怎樣在C 中呼叫Delphi6寫的DLL
我在編寫乙個系統時遇到了乙個問題，無法在c 中呼叫delphi6寫的dll,只因為dll的引數是string型別的。然後在網上找相關的資料，還是沒有結果。經過我的再三琢磨，現在已經解決，特寫此文章與大家分享我的喜愉！dellphi dll檔案 library mydll uses sysutils,...
Delphi函式參考大全
本書詳細地介紹了delphi函式及其應用，是一本全面系統的delphi函式參考大全。本書通過大量的示例 典型應用幫助讀者透徹理解delphi函式及其應用。全書共分28章，包括字串處理函式 數學計算函式 序數函式 三角函式 統計函式 金融函式 隨機數函式 單位換算函式 日期函式 型別轉換函式 異常處理...