delphi checklistbox用法

Delphi⽬录函数，操作[1]FindFirst、FindNext、TSearchRec。

。。

Delphi ⽬录操作[1] FindFirst、FindNext - 寻找⽬标⽬录下的第⼀个⽂件和下⼀个⽂件

单元：SysUtils

1、FindFirst //寻找⽬标⽬录下的第⼀个⽂件

函数 原型:

function FindFirst(const Path: string; Attr: Integer; var F: TSearchRec): Integer;

const

faSpecial = faHidden or faSysFile or faVolumeID or faDirectory;

begin

F.ExcludeAttr := not Attr and faSpecial;

F.FindHandle := FindFirstFile(PChar(Path), F.FindData);

if F.FindHandle <> INVALID_HANDLE_VALUE then

begin

Result := FindMatchingFile(F);

if Result <> 0 then FindClose(F);

end else

Result := GetLastError;

end;

返回值：成功找到⽂件时,返回 0

Arrt 参数可定义：

faReadOnly = $00000001 platform; //只读⽂件

faHidden = $00000002 platform; //隐藏⽂件

faSysFile = $00000004 platform; //系统⽂件

faVolumeID = $00000008 platform; //卷标⽂件

faDirectory = $00000010; //⽬录⽂件

faArchive = $00000020 platform; //归档⽂件

faSymLink = $00000040 platform; //链接⽂件

目录

TForm Class ..................................................................................................................................................................................... 1

TPanel组件 ..................................................................................................................................................................................... 4

TToolBar Class .................................................................................................................................................................................. 5

TToolButton Class ............................................................................................................................................................................ 7

TTimer Class .................................................................................................................................................................................... 7

淺談如何使用Delphi 2009的泛型容器類別

Delphi 2009在Delphi程式語言方面加入了兩個主要的功能，一個是泛型程式設

計(Generics Programming)，另外一個就是匿名方法(Anonymous Method)。Delphi 2009在Win32加入了泛型程式設計之後，Delphi程式語言便可以同時在

Win32，.NET平台下使用泛型程式設計。由於Delphi 2009在Delphi程式語言本

身加入了泛型程式設計，因此在Delphi RTL中也加入了一些新的泛型容器類別(Generic Container Class)以方便開發人員使用於日常的開發程式碼中。本文將為

讀者簡單的介紹如何使用使用這些新的泛型容器類別，希望能夠幫助讀者快速學

習上手。

簡單的說，泛型程式設計允許開發人員撰寫可泛用的運算法則，這些運算法則能

夠使用於各種不同的資料型態，因此一旦開發人員開發完成這些泛用的運算法

則，其他的開發人員就可以根據需要的處理資料型態帶入泛用的運算法則來完成

運算的工作。例如Delphi最早提供的TList容器類別在實作時由於寫死是使用TObject的資料型態(類別型態)，因此開發人員只能在TList中使用TObject樣例。

但是TList容器提供的運算法則其實是能夠應用於任何型態的，而且開發人員在

許多情形中也希望能夠使用TList來暫時處理一些程式碼中的物件，而不只是TObject樣例。

因此所謂泛型的TList就是讓TList提供的運算法則能夠適用於各種不同的資料

型態(類別型態)，例如讓TList可以處理字串，整數，浮點數或是任何開發人員定義的類別型態。在一般的程式語言中泛型是使用符號來代表的，其中的代

表Type或是Template的意思，因此泛型的TList就是:

TList + = TList

因此要讓TList處理字串，就使用TList，

因此要讓TList處理TComponent，就使用TList，

delphi imagelist 使用方法

在 Delphi 中使用 ImageList 控件，可以按照以下步骤进行操作：

1. 双击 ImageList 控件，将其添加到窗体上。

2. 添加图标到 ImageList 控件中。可以通过双击 ImageList 控件，然后在弹出的对话框中选择相应的图标，或者使用代码进行添加。

3. 在代码中声明一个 TBitmap 对象，用于存储图标。例如：

```

var

img: TBitmap;

begin

img := ;

try

// 在此处使用 方法获取图标，并将其赋值给 img 对象

finally

;

end;

end; ```

4. 使用 方法获取指定索引的图标，并将其赋值给 TBitmap 对象。例如：

```pascal

img := ;

try

(0, img); // 获取索引为 0 的图标

finally

;

end;

```

5. 将 TBitmap 对象显示在窗体上。可以使用 TCanvas 对象的 Draw 方法将 TBitmap 对象绘制到窗体上。例如：

```pascal

(0, 0, img); // 在窗体的左上角绘制图标

```

以上是使用 Delphi 中 ImageList 控件的基本步骤。需要注意的是，在使用完 TBitmap 对象后，需要释放其内存，以避免内存泄漏。