使用 TClientDataSet(1)

本例:

代碼檔案:

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, Grids, DBGrids, DB, DBClient, StdCtrls, ExtCtrls;type  TForm1 = class(TForm)    Panel1: TPanel;    Button1: TButton;    Button2: TButton;    ClientDataSet1: TClientDataSet;    DataSource1: TDataSource;    DBGrid1: TDBGrid;    procedure FormCreate(Sender: TObject);  end;var  Form1: TForm1;implementation{$R *.dfm}{本來可以不寫代碼, 設定四個屬性即可}procedure TForm1.FormCreate(Sender: TObject);var  DataFile: string;begin  {擷取 CodeGear 共用安裝的資料檔案: country.xml 的路徑}  DataFile := GetEnvironmentVariable('COMMONPROGRAMFILES');   {C:\Program Files\Common Files}  DataFile := DataFile + '\CodeGear Shared\Data\country.xml'; {country.cds 也可}  DBGrid1.DataSource := DataSource1;     {DBGrid 需要串連資料來源}  DataSource1.DataSet := ClientDataSet1; {資料來源 DataSource 需要串連資料集}  ClientDataSet1.FileName := DataFile;   {讓資料集 ClientDataSet 關聯一個資料檔案}  {開啟資料集}  ClientDataSet1.Active := True; //或 ClientDataSet1.Open;end;end.

表單檔案:

object Form1: TForm1  Left = 0  Top = 0  Caption = 'Form1'  ClientHeight = 251  ClientWidth = 439  Color = clBtnFace  Font.Charset = DEFAULT_CHARSET  Font.Color = clWindowText  Font.Height = -11  Font.Name = 'Tahoma'  Font.Style = []  OldCreateOrder = False  OnCreate = FormCreate  PixelsPerInch = 96  TextHeight = 13  object Panel1: TPanel    Left = 0    Top = 0    Width = 439    Height = 41    Align = alTop    Caption = 'Panel1'    TabOrder = 0    object Button1: TButton      Left = 20      Top = 8      Width = 75      Height = 25      Caption = 'Button1'      TabOrder = 0    end    object Button2: TButton      Left = 101      Top = 8      Width = 75      Height = 25      Caption = 'Button2'      TabOrder = 1    end  end  object DBGrid1: TDBGrid    Left = 0    Top = 41    Width = 439    Height = 210    Align = alClient    TabOrder = 1    TitleFont.Charset = DEFAULT_CHARSET    TitleFont.Color = clWindowText    TitleFont.Height = -11    TitleFont.Name = 'Tahoma'    TitleFont.Style = []  end  object DataSource1: TDataSource    Left = 160    Top = 104  end  object ClientDataSet1: TClientDataSet    Aggregates =     Params =     Left = 168    Top = 112  endend