在DELPHI的程序開發過程中Tstrings類的使用是比較頻繁的，下面就此類在DELPHI5的開發環境中進行一下簡單的介紹及實例（注：本文只對tstrings類中的方法及屬性進行介紹，從其父類繼承的屬性及方法不屬本文討論之內）。
Add
原型：function Add(const S: string): Integer; virtual;
注解：此方法是在字符表中的後面添加字符串，返回值是新添加字符串的索引值。
實例：
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=1 to 10 do
listbox1.Items.Add(inttostr(i));
end;
AddStrings
原型：procedure AddStrings(Strings: TStrings); virtual;
注解：從字符表中添加一組字符表。
實例：
procedure TForm1.Button2Click(Sender: TObject);
var
abc:tstringlist;
begin
abc:=tstringlist.Create;
abc.Assign(listbox1.Items);
listbox2.Items.AddStrings(abc);
end;
procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
begin
for i:=1 to 10 do
listbox1.Items.Add(inttostr(i));
end;
Append
原型：procedure Append(const S: string);
注解：此方法是在字符表中的後面添加字符串。
實例：
procedure TForm1.Button1Click(Sender: TObject);
begin
listbox1.Items.Append(’you will win!!’);
end;
Assign
原型：procedure Assign(Source: TPersistent); override;
注解：用此方法從另一個兼容的對象中的值賦給此對象，相當於復制和賦值的功能。
實例：
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=1 to 10 do
begin
listbox1.items.add(inttostr(i));
end;
listbox2.items.Assign(listbox1.items);
end;
BeginUpdate
原型：procedure BeginUpdate;
注解：此方法是在字符串列表與可視化列表控件進行操作時使用的，目的是防止添加或刪除item時進行刷新（在大數據量進行添加或刪除操作時是很費時間的）。與EndUpdate進行配對操作。
實例：
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
listbox1.Items.BeginUpdate;
for i:=0 to 10000 do
begin
listbox1.items.Add(inttostr(i));
end;
listbox1.Items.EndUpdate;
end;
Clear
原型：procedure Clear; virtual; abstract;
注解：此方法清除字符表中全部的內容
實例：
procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
begin
for i:=0 to 10 do
listbox1.items.add(inttostr(i));
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
listbox1.Items.Clear;
end;
Delete
原型：procedure Delete(Index: Integer); virtual; abstract;
注解：此方法通過索引值刪除指定的字符串。
實例：
procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
begin
for i:=0 to 10 do
listbox1.items.add(inttostr(i));
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
listbox1.Items.Delete(listbox1.ItemIndex);
end;
Destroy
原型：destructor Destroy; override;
注解：消毀一個TStrings類的實例。
實例：
var
Form1: TForm1;
aaa:boolean;
bbb:tstringlist;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
aaa:=true;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if aaa=true then
begin
bbb:=tstringlist.create;
aaa:=false;
end
else
begin
bbb.Destroy;
aaa:=true;
end;
end;
end.
EndUpdate
原型：procedure EndUpdate;
注解：此方法是在字符串列表與可視化列表控件進行操作時使用的，目的是防止添加或刪除item時進行刷新（在大數據量進行添加或刪除操作時是很費時間的）。與BeginUpdate進行配對操作。
實例：
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
listbox1.Items.BeginUpdate;
for i:=0 to 10000 do
begin
listbox1.items.Add(inttostr(i));
end;
listbox1.Items.EndUpdate;
end;
Equals
原型：function Equals(Strings: TStrings): Boolean;
注解：此方法為判斷兩個Tstrings類中的內容是否相當，如果相等返回為true，不等返回為false。
實例：
procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
begin
for i:=0 to 10 do
begin
listbox1.items.add(inttostr(i));
listbox2.items.add(inttostr(i));
end;
for i:=0 to 9 do
begin
listbox3.items.add(inttostr(i));
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if listbox1.items.Equals(listbox2.items) then
showmessage(’相等’)
else
showmessage(’不相等’);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if listbox2.items.Equals(listbox3.items) then
showmessage(’相等’)
else
showmessage(’不相等’);
end;
Exchange
原型：procedure Exchange(Index1, Index2: Integer); virtual;
注解：此方法是借助兩個字符串在表中的索引而調換位置。與move區別是（If either string has an associated object, Exchange changes the position of the object as well.如果這個字符串有一個鏈接的對象，那麼這個對象的位置也隨著字符串的位置改變而改變。）
實例：
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to 10 do
listbox1.items.add(inttostr(i));
listbox1.items.Exchange(0,10);
end;
GetText
原型：function GetText: PChar; virtual;
注解：取得所有此類中的字符。
實例：
procedure TForm1.FormCreate(Sender: TObject);
begin
listbox1.Items.add(’1’);
listbox1.Items.add(’1’);
listbox1.Items.add(’1’);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(string(listbox1.Items.GetText));
end;
IndexOf
原型：function IndexOf(const S: string): Integer; virtual;
注解：通過字符串常量來得到在此類中的索引值。
實例：
procedure TForm1.FormCreate(Sender: TObject);
begin
listbox1.Items.add(’1’);
listbox1.Items.add(’2’);
listbox1.Items.add(’3’);
listbox1.Items.add(’4’);
listbox1.Items.add(’5’);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(inttostr(listbox1.Items.indexof(’5’)));
end;
Insert
原型：procedure Insert(Index: Integer; const S: string); virtual; abstract;
注解：在指定的索引位置插入一個字符串。
實例：
procedure TForm1.FormCreate(Sender: TObject);
begin
listbox1.Items.add(’1’);
listbox1.Items.add(’2’);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
listbox1.Items.Insert(0,’abc’);
end;
LoadFromFile
原型：procedure LoadFromFile(const FileName: string); virtual;
注解：從指定的文件名裝載文件內容。
實例：
procedure TForm1.Button2Click(Sender: TObject);
begin
listbox1.items.LoadFromFile
