目的:讀入一個文字檔, 此文字檔格式如下 第一課 xxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxx zzzzzzzzzzzzzzzzzzzzzzzzzzz ........................... 第二課 xxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxx zzzzzzzzzzzzzzzzzzzzzzzzzzz 第XX課 xxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxx zzzzzzzzzzzzzzzzzzzzzzzzzzz 希望將每一課的內容存入 TStringList 因此建立動態陣列 ASL: array of TStringList 問題1: 因為不知道文字檔內共幾課,如何使用 SetLength? 問題2: 當已經完成 SetLength 時發現必須再補充幾課或刪除其中幾課時,如何調整? 問題3: 如果繼續載入另一檔,如何先釋放 ASL ,也就是宣告與釋放的時機與方法? 麻煩高手指點迷津 謝謝

1) SetLength will preserve existing elements in the array 2) you need to manualy do insertion/deletion (e.g. using functiuon move) 3) it depends on how you use this array But I think using TList to store the TStringList would be easier in this case?

TList 也許是一個不錯的方法 但我如何取出 TStringList 的資料 我意思是使用者這按了第五課 就必須顯出第五課的內容

List1.Add(StringList1); List1.Add(StringList2); List1.Add(StringList3); List1.Add(StringList4); List1.Add(StringList5); {...} AStringList := TStringList(List1.Items[4]); { AStringList = StringList5 }

我已經試出來您的方法,至於詳細的細節我再去努力 感謝指點