Tstrings类简单介绍及实例

用TStrings保存文件;var  S: TStrings;begin  S := TStringList.Create();  { ... }  S.SaveToFile(‘config.txt‘, TEncoding.UTF8);

Tstrings类简单介绍及实例
在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(’c:/abc.txt’);
end;

LoadFromStream
原型：procedure LoadFromStream(Stream: TStream); virtual;
注解：从流中装载文件。
实例：
procedure TForm1.Button1Click(Sender: TObject);
 var
 abc:tmemorystream;
 begin
 abc:=tmemorystream.create;
 abc.LoadFromFile(’c:/csdn.txt’);
memo1.lines.LoadFromStream(abc);
 end;

Move
原型：procedure Move(CurIndex, NewIndex: Integer); virtual;
注解：交换两个以索引为参数的字符串。与Exchange不同的是
 （If the string has an associated object, the object remains
  associated with the string in its new position.如果这个字符串有一个对象，
 那么这个对象的位置不变，自动链接到新的字符串）
 实例：
procedure TForm1.Button1Click(Sender: TObject);
 begin
 ListBox1.Items.Move(ListBox1.ItemIndex, 0);
 end;

SaveToFile
原型：procedure SaveToFile(const FileName: string); virtual;
注解：通过参数来把tstrings中的内容存成文件。
实例：
procedure TForm1.Button2Click(Sender: TObject);
 begin
 memo1.Lines.SaveToFile(’c:/abc.txt’);
end;

SaveToStream
原型：procedure SaveToStream(Stream: TStream); virtual;
注解：保存成流。
实例：
procedure TForm1.Button1Click(Sender: TObject);
 var
 abc:tstringlist;
 abcd:tmemorystream;
 begin
 abc:=tstringlist.create;
 abcd:=tmemorystream.create;
 abc.add(’1’);
abc.add(’1’);
abc.add(’1’);
abc.add(’1’);
abc.SaveToStream(abcd);
 abcd.Position:=0;
 memo1.lines.loadfromstream(abcd);
 end;

SetText
原型：procedure SetText(Text: PChar); virtual;
注解：设置tstrings类中的内容。
 实例：
procedure TForm1.FormCreate(Sender: TObject);
 var
 i:integer;
 begin
 for i:=0 to 10 do
 begin
 listbox1.items.add(inttostr(i));
 end;
 end;

procedure TForm1.Button1Click(Sender: TObject);
 begin
 listbox1.Items.SetText(pchar(’aa’));
end;