其他

其實只提供了 13 個 vsf 樣式檔案, 還有預設的 Windows 樣式, 共 14 種.在空白表單上添加 ListBox1 等控制項, 測試代碼:uses IOUtils, Vcl.Styles, vcl.Themes;procedure TForm1.FormCreate(Sender: TObject);var dir, fileName, styleName: string;begin //VCL 的樣式檔案 *.vsf 在 X:\Program

在實踐中真的會發現更多問題.unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs;type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); end;

一、指定 Owner 後, 隨 Owner 連帶釋放://uses Vcl.StdCtrls, Vcl.ExtCtrls;var panel: TPanel;procedure TForm1.Button1Click(Sender: TObject);begin panel := TPanel.Create(Self); panel.Parent := Self; with TButton.Create(panel) do //AOwner = panel begin

或許就在四年前的這個時候, 我正在申請入住部落格園.現在看來, 當時作對了兩件事情: 1、語言(Delphi)的選擇; 2、部落格(部落格園)的選擇.1、關於語言的選擇:其實早在 Win95、Win98 時就開始使用電腦了, 因興趣和工作的需要接觸了一些軟體, 使用最多也最熟練的軟體當屬 Sibelius, 特別是在其指令碼設計方面.軟體用多了就想自己做軟體, 開始嘗試各種工具或語言: VC、VB、Java、Python、C#...但最後還是選定了 Delphi, 那時已是 Delphi 200

曾經想過, Delphi 要能這樣給數組賦值就好了: arr := [...];VarArrayOf 可不是新東西, 不過之前還沒習慣用它.var bs: TBytes;// bs: TArray&ltByte>begin// SetLength(bs, 3); bs := VarArrayOf([11, 22, 33]); ShowMessage(IntToStr(bs[2])); //33end;var strArr: TArray&ltstring>

Normal 0 7.8 磅 0 2 false false false MicrosoftInternetExplorer4 深秋的季節，天氣的變冷讓有些人措手不及，猶如軟體系統即將開發完成時，客戶說要增加需求。哪怕就是一個小小的需求也會考驗我們的心理承受能力，輕者兩眼發直，重者茶飯不思，睡不好覺，甚至讓你的更年期提前。有句話：

Normal 0 7.8 磅 0 2 false false false MicrosoftInternetExplorer4

剛剛從部落格園看到有朋友用 C# 做了這麼個東西, 我用 Delphi 嘗試了一下.需要先去申請一個 AppID: http://www.bing.com/toolbox/bingdeveloper/使用協助在: http://msdn.microsoft.com/en-us/library/dd576287.aspxuses MsXML;{函數}function Translate(AAppID: string; AText: string; InLanguage: string='en';

實戰網路編程系列-網路編程基礎（一） Normal 0 7.8 磅 0 2 false false false MicrosoftInternetExplorer4 Normal 0 7.8 磅 0 2 false false false

2011 年的最後一天了...混合排序 -> 攪亂、重新洗牌; 以 Integer 動態數組為例.//兩個輔助函數 Swap、ToStr, 分別用於交換數組元素和呈現為字串procedure Swap(var Arr: TArray<Integer>; a,b: Cardinal);var tmp: Integer;begin if (a >= Length(Arr)) or (b >= Length(Arr)) or (a = b) then Exit;

const i = 1;//初始測試資料procedure TForm1.FormCreate(Sender: TObject);begin ListBox1.Items.CommaText := 'aaa,bbb,ccc'; ComboBox1.Items.CommaText := 'aaa,bbb,ccc';end;//對 ListBox1procedure TForm1.Button1Click(Sender: TObject);begin//

Normal 0 7.8 磅 0 2 false false false MicrosoftInternetExplorer4 我們都知道，一般的應用軟體，必然會有一些系統配置的工作。在日常的開發過程中，也有很多類似的配置，有些配置很簡單，稍微花點時間設定一下就好了。有些就比較複雜，比如Oracle,

uses MMSystem;var hMidiIn: Integer;procedure midiCallBack(hdrvr: HDRVR; uMsg: UINT; dwUser: DWORD; dw1, dw2: DWORD) stdcall;begin case uMsg of MIM_OPEN: ; MIM_CLOSE: ; MIM_DATA: Form1.Memo1.Lines.Add(IntToStr(dw1)); MIM_LONGDATA: ;

每個人都會到餐館吃飯，我相信每個人都遇到過這種情況：上菜很慢，肚子很餓，急死人了。你會怎麼辦？要麼換一家餐館，要麼不斷的催促服務員；直接到廚房搶菜的事情應該很少發生，大部分人通常會選擇先催促，後示威，最後再無奈等待（或抬腿走人）。一般催促的情境是這樣的：“服務員，我們的菜快點上來，都等很久了，別人後來的都吃上了”。服務員一般這樣回答：“馬上，馬上就上菜”或者“好的，我幫你催一下”；這時你通常會繼續耐心等待。（十分鐘後……）菜還是沒上來，你開始有點發狂了（前肚皮貼後背，喝茶已經不能解決問題了），你

        在大型網站中，訪問者看到的頁面基本上是靜態頁面。為什麼都要把頁面靜態化呢？把頁面靜態化，好處有很多。例如：訪問速度快，更有利於搜尋引擎收錄等。目前主流的靜態化主要有兩種：一種是通過程式將動態網頁面抓取並儲存為靜態頁面，這樣的頁面的實際存在於伺服器的硬碟中，另外一種是通過WEB伺服器的 URL Rewrite的方式，他的原理是通過web伺服器內部模組按一定規則將外部的URL請求轉化為內部的檔案地址，一句話來說就是把外部請求的靜態地址轉化

在今後的 Delphi 中, 以介面、結構為主的設計應該會越來越多, 因為這樣太方便了.System.RegularExpressions 就是以結構為主體設計的非常好的示範; 但更多東西使用介面會更合適.有見過他人早就使用介面寫程式, 從手頭的這個程式開始我才開始使用.現在基本總結出四種架構模式: 1、直接實現; 2、間接實現(或叫繼承實現); 3、覆蓋實現; 4、委託實現.一、直接實現:下例中雖有 TMy1、TMy2, 但在具體應用中使用的應是 IMy1、IMy2,

Normal 0 7.8 磅 0 2 false false false MicrosoftInternetExplorer4      視頻網站可以分為兩類核心業務：視頻上傳和視頻播放。視頻上傳                   

Normal 0 7.8 磅 0 2 false false false MicrosoftInternetExplorer4