Tstringlist 应用

最新推荐文章于 2020-10-19 15:28:40 发布

许宸郡

最新推荐文章于 2020-10-19 15:28:40 发布

阅读量454

点赞数

CC 4.0 BY-SA版权

本文链接：https://blog.youkuaiyun.com/u013436459/article/details/18360031

本文详细介绍了如何在Delphi中创建一个字符串列表，并演示了添加、删除、排序、查找和交换元素等基本操作。通过实例代码，读者可以深入理解Delphi中字符串列表的应用。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
Memo2: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
List: TStringList;
i: Integer;
begin
List := TStringList.Create;
{ List.Add('Strings1'); //添加
List.Add('Strings2');
List.Delete(1);
//List.Insert(0,'Strings3');
//List.Sort; //排序
//List.Sorted := True; //指定排序
//List.Exchange(0,1);
// List.Insert(0,'Strings3');
Memo1.Lines[0]:=List.Strings[0];
// Memo1.Lines[1]:=List.Strings[1];
//Memo2.Lines[0]:=List.Text;
// Memo2.Lines.Add(List.Text);
//ShowMessage(IntToStr(List.Count));
//Memo1.Lines[2]:=List.Strings[2];
//i := List.IndexOf('Strings1');
// ShowMessage(IntToStr(i));
// Memo1.Lines[2]:=List.Strings[2];
//Memo1.Lines.Add(List.Strings[1]);
List.Exchange(0,1); //置换
List.Insert(0,'Strings3'); //插入
i := List.IndexOf('Strings1'); //第一次出现的位置
List.Sort; //排序
List.Sorted := True; //指定排序
List.Count; //总数
List.Text; //文本集合
List.Delete(0); } //删除, 0是第一个数据
List.LoadFromFile('e:\test.txt');//打开
//List.SaveToFile('c:\tmp.txt'); //保存
Memo2.Lines.Add(List.Text);
Memo1.Lines:=Memo2.Lines;
//List.SaveToFile('e:\tmp.txt');
List.Clear; //清空
List.Free; //释放
end;

end.