其他

//譬如　WINDIR　是表示系統目錄的系統變數,　可以這樣擷取:var　　s:　string;　　begin　　s　:=　GetEnvironmentVariable('WINDIR');　　ShowMessage(s);　{C:\WINDOWS}end;(*--------------------------------------------------------------------------------　　WINDIR　　　　　　　　　　　　{系統目錄　-　C:\WINDOWS}

Function DecimalToChineseCurrency(Decimal: String): String; Var　 s, t　　　　　　　　　　　　　 : TStringList;　 i, ti　　　　　　　　　　　　 : Integer;　 tmps　　　　　　　　　　　　　 : String;　 IsDecimal　　　　　　　　 : Integer; Begin IsDecimal := 0;　 ti := 0;　 For i := 1 To Length(Decimal)

本例效果圖:代碼檔案:unit　Unit1;interfaceuses　Windows,　Messages,　SysUtils,　Variants,　Classes,　Graphics,　Controls,　Forms,　Dialogs,　OleCtrls,　SHDocVw,　StdCtrls,　ExtCtrls;type　TForm1　=　class(TForm)　　WebBrowser1:　TWebBrowser;　　Panel1:　TPanel;　　Button1:　TButton;　　C

SysUtils.IsLeapYear();DateUtils.IsInLeapYear();unit　Unit1;interfaceuses　Windows,　Messages,　SysUtils,　Variants,　Classes,　Graphics,　Controls,　Forms,　Dialogs,　StdCtrls;type　TForm1　=　class(TForm)　　procedure　FormCreate(Sender:　TObject);　end;var　Form1:　TFo

SysUtils.Now;SysUtils.Date;SysUtils.Time;SysUtils.CurrentYear;unit　Unit1;interfaceuses　Windows,　Messages,　SysUtils,　Variants,　Classes,　Graphics,　Controls,　Forms,　Dialogs;type　TForm1　=　class(TForm)　　procedure　FormCreate(Sender:　TObject);　end;var　Form1

Delphi沒有自己的字串分割函數，所以只能程式員自己寫了，網上搜了好多但是真正好用的沒有幾個。下面這個是我在網上找到修改後了的，個人感覺演算法不錯，所以就貼了上來。function SplitString(Source, Deli: string ): TStringList;stdcall;varEndOfCurrentString: byte;StringList:TStringList;beginStringList:=TStringList.Create;while Pos(Deli,

Delphi的字元及字串[6] - Char(AnsiChar)、WideChar與其編碼的相互轉換//Char 類型與其編碼值的轉換:var　b: Byte;　c: Char;begin　b := Ord('A');　 {返回: 65}　b := Ord(#65);　 {返回: 65}　b := Ord($41);　 {返回: 65}　b := Ord(#$41);　{返回: 65}　b := Byte('A');　{返回: 65}　b := Byte(#65);　{返回: 65}　b :=

//String 的指標地址及實際的記憶體位址varstr: string;pstr: PString;pc: PChar;begin{在沒有給 str 賦值以前, 既然聲明了, 就有了指標地址 (@str):}ShowMessage(IntToStr(Integer(@str))); {1244652; 這是在棧中的 str 的指標地址} {但現在還沒有分配真正儲存字串記憶體}ShowMessage(IntToStr(Integer(str)));　{0; 0 就是 null}str := '

Delphi的字元及字串[2] - Char、AnsiChar、WideChar、PChar、PAnsiChar、PWideChar//單字元 Char、AnsiChar (在目前版本(2007)中, 它們是一回事, 只有 1 位元組大小)varc: Char; {Char 類型的取值範圍是: #0..#255, 用十六進位表示是: #$0..#$FF}begin{ 用十進位方式賦值:}c := #65;ShowMessage(c); {A}{用十六進位方式賦值:}c :=

前些天進行一個項目，在進行介面設計的時候進行了一些換膚操作。但是由於介面採用圖形介面開發，功能表列和工具列都進行了圖形化處理，狀態列相比就顯得單調了許多，所以替換了windows程式產生的狀態列，用了網路上面的Scroll.ocx控制項。但是由於程式屬於小程式如果載入較多控制項可能不太方便，加上在使用這個控制項的過程中發現如果輸入顯示字型長度比較長的時候在顯示重新整理的時候會出現問題，所以自己仿造那個顯示方法進行了這個控制項的編寫。程式繼承靜態控制項類，在程式建立的時候可以代替一些控制項用來進行

unit Unit1;interfaceuses　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,　Dialogs, StdCtrls;type　TForm1 = class(TForm)　　Button1: TButton;　　Button2: TButton;　　procedure FormCreate(Sender: TObject);　　procedure

Delphi2009中容器類簡介:1.TList類：一個可以儲存指標的容器類，提供了一系列的方法和屬性來添加，刪除，重排，定位，存取和排序容器中的類，它是基於數組的機制來實現的容器，比較類似於C++中的Vector和Java中的ArrayList，TList 經常用來儲存一組對象列表，基於數組實現的機制使得用下標存取容器中的對象非常快，但是隨著容器中的對象的增多，插入和刪除對象速度會直線下降，因此不適合頻繁添加和刪除對象的應用情境。 屬性

1.Class Fields//例1 成員變數type TAncestor = class Value: Integer; end; TDescendant = class(TAncestor) Value: string; // hides the inherited Value field end;var MyObject: TAncestor;begin MyObject := TDescendant.Create; MyObject.

1.基本指派陳述式Size :=20;Price :=10;2.特殊符號1）單個特殊符號# $ & ' ( ) * + , - . / : ; < = > @ [ ] ^ { }2）成對的特殊符號(* (. *) .) .. // := <= >= <>3).等價的特殊符號 特殊符號 等價的特殊符號 [ (.

回呼函數：回呼函數是這樣一種機制：調用者在初始化一個對象（這裡的對象是泛指，包括OOP中的對象、全域函數等）時，將一些參數傳遞給對象，同時將一個調用者可以訪問的函數地址傳遞給該對象。這個函數就是調用者和被調用者之間的一種通知約定，當約定的事件發生時，被調用者（一般會包含一個背景工作執行緒）就會按照回呼函數地址調用該函數。這種方式，調用者在一個線程，被調用者在另一個線程。在Windows

DateOf、TimeOf、YearOf、MonthOf、WeekOf、DayOf、HourOf、MinuteOf、SecondOf、MilliSecondOf函數用於提取時間成分它們的參數都是一個 TDateTime,DateOf、TimeOf 分別提取日期與時間, 並返回 TDateTime 類型;YearOf、MonthOf、WeekOf、DayOf、HourOf、MinuteOf、SecondOf、MilliSecondOf 返回的都是 Word

Geo.Cra[at]gmail[dot]com}unit OpticalFlowLK;interfaceuses　Math, Windows, SysUtils, Variants, Classes, Graphics, unitypes, ColorConv;type　TOpticalFlowLK = class　private　　ImageOld, ImageNew: TTripleLongintArray;　　ImageGray, dx, dy, dxy:

隨著 Embarcadero 8 月 25 號發布 RAD Studio 2009 （Tiburon) 以來（Tiburon 的 RTM 日期可能要延後到 9 - 10 月），隨著 Tiburon 全面支援 Unicode，現有的 Delphi / C++ Builder 項目要遷移到 Unicode 下應該注意些什麼也成為大家最為關心的問題。Tiburon 對 Unicode 的支援不僅僅是將原來 類型映射為 AnsiString 的 String 類型直接改成 WideString，而是對

Delphi利用資料庫實現檔案打包的基本思路分析：【1】在Delphi中，把檔案讀取為檔案流，再以流的形式儲存在資料庫的OLE 對象的欄位中；【2】當要釋放檔案包時，可以直接讀取資料庫的OLE

1．讀硬碟序號function GetDiskSerial(DiskChar: Char): string;varSerialNum : pdword;a, b : dword;Buffer : array [0..255] of char;beginresult := "";if GetVolumeInformation(PChar(diskchar+":\"), Buffer, SizeOf(Buffer), SerialNum,a, b, nil,