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;