Delphi TStringList 详解.doc

Delphi TStringList 详解TStringList 拥有一个可变长度的字符串列表Type类型TStringList;说明TStringList是一个工具类的类型。这是非常有用的列表处理多种。列表中的项目在一个字符串可能被插入，移动和排序。该清单可以建立由一串一串，或从脱离大串的文本文件，甚至是一个逗号加载。TStringList是来自TStrings。虽然你可以使用TStrings，不推荐使用，因为它是不完整的-某些方法是抽象的。TStringList实现这些插入）抽象方法（清除，删除和。我们将讨论的主要性能测试方法和TStringList，包括从派生的TStringsCountproperty返回数字的字符串列表中Capacityproperty设置或获取字符串列表的当前容量。您将管理这个性能原因的能力。Stringsproperty获取或更新列表中的指定索引的字符串（第一个列表项的索引为0）。请注意，Strings属性是默认属性。这意味着你可以使用它没有具体说明其名称：myName := names.Strings4;相当于：myName := names4;Textproperty通过设置或获取一个大的字符串列表。该字符串会与一个回车符和换行符的组合（CRLF的）结束每个字符串。从一个有用的可视对象，可容纳多行文本加载。CommaTextproperty通过获取或设置一个大的字符串列表。此字符串将有由逗号隔开的字符串列表。这是从文本电子表格导出加载有用。当获得，如果一个字符串包含嵌入的空格，将用双引号。DelimitedTextproperty获取或设置大串名单通过。这串名单将通过分隔字符串分隔符值（默认是逗号）。字符串包含嵌入的空格必须封闭在QuoteChar（默认是“）。QuoteCharproperty使用字符串用来括有嵌入的空格时DelimitedText。Delimiterproperty用于在使用单独的字符串DelimitedText。Namesproperty列表中的字符串的字符串可以被视为名称/值对，如第二个代码示例。每个字符串必须没有嵌入的空格，并包含一个嵌入式=符号（或任何现行NameValueSeparator变量）。这是一个非常有用的概念。见价值和ValueFromIndex属性和IndexOfName方法。Valuesproperty为给定的名称返回值时使用名称/值对字符串（见上文）。ValueFromIndexproperty返回的字符串索引（从0开始）当使用名称/值对的值。CaseSensitiveproperty当真实，德尔福为混合字符串处理案件时perforing某些操作的，这样的排序。Duplicatesproperty该属性可能有以下之一TDuplicates枚举值：dupIgnore忽略（丢弃）复制dupAccept允许重复dupError如果重复抛出异常当然，你应该添加字符串之前设置此属性所需的值。Sortedproperty当真正将所有字符串添加到一个有序的序列。当假的，他们是在末尾增加。又见排序方法。Objectsproperty返回与字符串相关的给定索引处的对象，如果有的话。function Add(const S: string): Integer; override;将添加到列表中给定的字符串，返回其分配索引位置（从0开始）。function AddObject(const S: string; AObject: Tobject): Integer; override;将添加到列表中给定的字符串，并且将字符串与对象绑定。procedure Append(const S: string);由于添加但不会返回索引值。Insertmethod插入一个在给定的索引位置的字符串。位置0将强制在开始插入。Deletemethod删除指定索引的字符串。Clearmethod删除列表中的所有字符串。Movemethod移动从一个到另一个字符串的索引位置，周围的其他字符串转换为适当的。Exchangemethod在清单中交换两个字符串，确定它们的索引位置。IndexOfmethod取得第一个匹配给定的字符串字符串的索引位置。如果没有找到则返回-1。IndexOfNamemethod取得第一个名称/值对字符串，它的名称相匹配给定的字符串的索引位置。如果没有找到则返回-1。Findmethod相同IndexOf但列出用于排序的字符串。Sortmethod当排序是假的，这将迫使列表排序的。A AddStringsmethod从另一个添加到这个列表中的字符串。Assignmethod与另一个替换列表中的内容的当前列表。LoadFromFilemethod确实很有用-载入一个文本文件从一个字符串列表。每一行文本（如的CRLF终止-见DelimitedText）成为一个列表字符串。SaveToFilemethod将一个字符串列表保存到一个文本文件。示例代码：一个简单的例子unit Unit1;interfaceusesClasses,/ Unit containing the TStringList commandForms, Dialogs;typeTForm1 = class(TForm)procedure FormCreate(Sender: TObject);end;varForm1: TForm1;implementation$R *.dfm / Include form definitionsprocedure TForm1.FormCreate(Sender: TObject);varanimals :TStringList;/ Define our string list variablei : Integer;begin/ Define a string list object, and point our variable at itanimals := TStringList.Create;/ Now add some names to our listanimals.Add(Cat);animals.Add(Mouse);animals.Add(Giraffe);/ Now display these animalsfor i := 0 to animals.Count-1 doShowMessage(animalsi);/ animalsi equates to animals.Stringsi/ Free up the list objectanimals.Free;end;end.示例代码：使用名值的字符串unit Unit1;interfaceusesClasses,/ Unit containing the TStringList commandForms, Dialogs;typeTForm1 = class(TForm)procedure FormCreate(Sender: TObject);end;varForm1: TForm1;implementation$R *.dfm / Include form definitionsprocedure TForm1.FormCreate(Sender: TObject);varnames:TStringList;/ Define our string list variableageStr : String;i: Integer;begin/ Define a string list object, and point our variable at itnames := TStringList.Create;/ Now add some names to our listnames.CommaText := Neil=45, Brian=63, Jim=22;/ And now find Brians ageageStr := names.ValuesBrian;/ Display this valueShowMessage(Brians age = +ageStr);/ Now display all name and age pair valuesfor i := 0 to names.Count-1 dobeginShowMessage(names.Namesi+ is +names.ValueFromIndexi);end;/ Free up the list objectnames.Free;end;end.示例代码：使用DelimitedText，分隔符号和QuoteCharunit Unit1;interfaceusesClasses,/ Unit containing the TStringList commandForms, Dialogs;typeTForm1 = class(TForm)procedure FormCreate(Sender: TObject);end;varForm1: TForm1;implementation$R *.dfm / Include form definitionsprocedure TForm1.FormCreate(Sender: TObject);varcars :TStringList;/ Define our string list variablei: Integer;begin/ Define a string list object, and point our variable at itcars := TStringList.Create;/ Now add some cars to our list - using the DelimitedText property/ with overriden control variablescars.Delimiter := ;/ Each list item will be blank separatedcars.QuoteChar := |;/ And each item will be quo