Delphi 判斷一個com組建是否已經注冊函數： function IsClassRegistered(GUID: TGUID): Boolean;var ClassID: String;begin with TRegistry.Create do try ClassID := GUIDToString(GUID); RootKey := HKEY_CLASSE...

[閱讀全文]

Delphi 解析出域名對應的IP地址函數。 function GetIPFromName(Name: string): string;var WSAData: TWSAData; HostEnt: PHostEnt;begin WSAStartup(2, WSAData); HostEnt := gethostbyname(PChar(Name)); with Hos...

[閱讀全文]

Delphi 獲得字符串中漢字的總個數 function HowManyChineseChar(Const s:String):Integer;var SW:WideString; C:String; i, WCount:Integer;begin SW:=s; WCount:=0; For i:=1 to Length(SW) do begin c:=SW; if Le...

[閱讀全文]

這個函數可以把一個數值轉換為大寫金額形式。 函數代碼如下： function UpperMoney(small:real):string;var SmallMonth,BigMonth:string; wei1,qianwei1:string[2]; qianwei,dianweizhi,qian:integer; ObjSmall:r...

[閱讀全文]

Delphi 中創建多級目錄用ForceDirectories函數很容易就實現了。 //function ForceDirectories(Dir: string): Boolean; ForceDirectories('C:\test\333\222\111');

[閱讀全文]

官方網站: http://www.regular-expressions.info/delphi.html 直接下載: http://www.regular-expressions.info/download/TPerlRegEx.zip 安裝方法: 1、先把解壓的 TPerlRegEx 文件夾放一個合適的地方, 我放在了 D...

[閱讀全文]

效果如圖: 代碼文件: unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, SHDocVw;type TForm1 = class(TForm) WebBrowser1: ...

[閱讀全文]

//譬如 %WINDIR% 是表示系統目錄的系統變量, 可以這樣獲取:var s: string;begin s := GetEnvironmentVariable('WINDIR'); ShowMessage(s); {C:\WINDOWS}end; 一些系統目錄變量列表： 變量 描述 ...

[閱讀全文]

var S: string; begin S := '計算機世界'; S := Copy(S, 1, 6); { '計算機' } end;

[閱讀全文]