我在程式的一開始定義了這個 const Transport_Count = 8; Transport_TYPE: array[0..(Transport_Count-1)] of string = ('Plane','TAXI','BUS','TRAM','MTR','KCR','FERRY','MiniBus'); 但是我想Transport_Count 是一個動態的值 因為 我會用inifile 去取 Transport_Count 的值 請問大大有什麼方法?

Hi SamSam1230,    原創： http://delphi.ktop.com.tw/topic.php?topic_id=28622 不能定義為 Const !!

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IniFiles;    type
  TForm1 = class(TForm)
    btn_load: TButton;
    btn_save: TButton;
    btn_show: TButton;
    procedure btn_saveClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btn_loadClick(Sender: TObject);
    procedure btn_showClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;
  IniFile:string;//ini檔路徑加檔名
  Transport_Count : Integer;
  Transport_Type : Array of String;    implementation    {$R *.dfm}    procedure TForm1.FormCreate(Sender: TObject);
begin
   IniFile := ExtractFilePath(Application.Exename)   'Sys.ini';
end;    procedure TForm1.btn_loadClick(Sender: TObject);
var
  n : TIniFile;
  i : Integer;
begin
  n := TIniFile.Create(IniFile);
  Transport_Count := n.ReadInteger('Sys','Count',0);
  SetLength(Transport_Type,Transport_Count);
  for i := 0 to Transport_Count - 1 do
    begin
      Transport_Type[i] := n.ReadString('Type' IntToStr(i),'Code','');
    end;
  n.free;
end;    procedure TForm1.btn_saveClick(Sender: TObject);
var
  n : TIniFile;
  i : Integer;
begin
  Transport_Count := High(Transport_Type) - Low(Transport_Type)   1;
  n := TIniFile.Create(IniFile);
  n.WriteInteger('Sys','Count',Transport_Count);
  for i := Low(Transport_Type) to High(Transport_Type) do
    begin
      n.WriteString('Type'   IntToStr(i),'Code',Transport_Type[i]);
    end;
  n.free;
end;    procedure TForm1.btn_showClick(Sender: TObject);
var
  i : Integer;
begin
  for i := Low(Transport_Type) to High(Transport_Type) do
    begin
      ShowMessage(IntToStr(i)   '-'   Transport_Type[i]);
    end;
end;    end.

INI內容 [sys] count=8 [type0] code=Plane [type1] code=TAXI [Type2] Code=BUS [type3] code=TRAM [type4] code=MTR [type5] code=KCR [Type6] Code=FERRY [type7] code=MiniBus ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

謝謝 Fishman 大大的幫助