TStrings類
出於效率的考慮，Delphi並沒有象C++和Java那樣將字符串定義為類，因此TList本身不能直接存儲字符串，而字符串列表又是使用非常廣泛的，為此Borland提供了TStrings類作為存儲字符串的基類，應該說是它除了TList類之外另外一個最重要的Delphi容器類。
要注意的是TStrings類本身包含了很多抽象的純虛的方法，因此不能實例化後直接使用，必須從TStrings類繼承一個基類實現所有的抽象的純虛方法來進行實際的字符串列表管理。雖然TStrings類本身是一個抽象類，但是它應該說是一個使用了Template模式的模版類，提供了很多事先定義好的算法來實現添加添加、刪除列表中的字符串，按下標存取列表中的字符串，對列表中的字符串進行排序，將字符串保存到流中。將每個字符串同一個對象關聯起來，提供了鍵-值對的關聯等等。
因為TStrings類本身是個抽象類，無法實例化，因此Delphi提供了一個TStringList的TStrings的子類提供了TStrings類的默認實現，通常在實際使用中，我們都應該使用TStringList類存儲字符串列表，代碼示意如下：
var TempList: TStrings;
begin
TempList := TStringList.Create;
try
TempList.Add(‘字符串1’);
…
finally
TempList.Free;
end;
end;
TStrings類的應用非常廣泛，很多VCL類的屬性都是TStrings類型，比如TMemo組件的Lines屬性，TListBox的Items屬性等等。下面將介紹一下TStrings類的常見用法。
TStrings類的常見的用法
根據下標存取列表中的字符串是最常見的一種操作，用法示意如下：
StringList1.Strings[0] := '字符串1';
注意在Delphi中，幾乎所有的列表的下標都是以0為底的，也就是說Strings[0]是列表中的第一個字符串。另外，由於Strings屬性是字符串列表類的默認屬性，因此可以省略Strings，直接用下面的簡便方法存取字符串：
StringList1[0] := '字符串1';
定位一個列表中特定的字符串的位置，可以使用IndexOf方法，IndexOf方法將會返回在字符串列表中的第一個匹配的字符串的索引值，如果沒有匹配的字符串則返回-1。比如我們可以使用IndexOf方法來察看特定文件是否存在於文件列表框中，代碼示意如下：
if FileListBox1.Items.IndexOf('TargetFileName') > -1 ...
有一點不方便的是TStrings類沒有提供一個方法可以查找除了第一個匹配字符串外其他同樣匹配的字符串的索引，只能是自己遍歷字符串列表來實現，這點不如C++中的模版容器類以及相關的模版算法強大和方便。下面是一個遍歷字符串列表的示意，代碼遍歷列表框中的所有字符串，並將其全部轉化為大寫的字符串：
procedure TForm1.Button1Click(Sender: TObject);var Index: Integer;
begin
for Index := 0 to ListBox1.Items.Count - 1 do
ListBox1.Items[Index] := UpperCase(ListBox1.Items[Index]);
end;
前面我們看到了，要想向字符串列表中添加字符串，直接使用Add方法就可以了，但是Add方法只能將字符串加入到列表的末尾，要想在列表的指定位置添加字符串，需要使用Insert方法，下面代碼在列表的索引為2的位置添加了字符串：
StringList1.Insert(2, 'Three');
如果要想將一個字符串列表中的所有字符串都添加到另一個字符串列表中，可以使用AddStrings方法，用法如下:
StringList1.AddStrings(StringList2);
要想克隆一個字符串列表的所有內容，可以使用Assign方法，例如下面的方法將Combox1中的字符串列表復制到了Memo1中：
Memo1.Lines.Assign(ComboBox1.Items);
要注意的是使用了Assign方法後，目標字符串列表中原有的字符串會全部丟失。
