Delphi TStringList 常用功能

最新推荐文章于 2022-07-25 11:24:17 发布

小印丶

最新推荐文章于 2022-07-25 11:24:17 发布

阅读量371

点赞数

分类专栏： Delphi 笔记文章标签： delphi TStringList

本文链接：https://blog.csdn.net/qq_44111597/article/details/115730557

版权

Delphi 笔记专栏收录该内容

75 篇文章 19 订阅

订阅专栏

这篇博客详细记录了使用RADStudio10.2.3进行Delphi编程的操作，包括字符串列表的基本操作如添加、插入、删除、查找、排序及反转等。通过实例展示了如何创建和管理内存中的字符串列表，并在界面上动态更新显示。对于初学者，这是一个很好的Delphi编程入门教程。

摘要由CSDN通过智能技术生成

RAD Studio 10.2.3 测试√

var
  G_StrList: TStringList;

procedure TForm1.FormCreate(Sender: TObject);
begin
  G_StrList := TStringList.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  G_StrList.Free;
end;

// 显示
procedure TForm1.Button_ListShowClick(Sender: TObject);
begin
  Memo1.Lines.Clear;
  Memo1.Lines.AddStrings(G_StrList);
end;

// 添加
procedure TForm1.Button_ListAddClick(Sender: TObject);
begin
  G_StrList.Add(Edit_Content.Text);
  Button_ListShow.Click;
end;

// 插入
procedure TForm1.Button_ListInsertClick(Sender: TObject);
begin
  G_StrList.Insert(0, Edit_Content.Text);
  Button_ListShow.Click;
end;

// 删除【根据序号，写死的删0号下标】
procedure TForm1.Button_ListDelClick(Sender: TObject);
begin
  G_StrList.Delete(0);
  Button_ListShow.Click;
end;

// 查找
procedure TForm1.Button_ListFindClick(Sender: TObject);
var
  mIndex: Integer;
begin
  mIndex := G_StrList.IndexOf(Edit_Content.Text);
  ShowMessage(IntToStr(mIndex));
end;

// 排序
procedure TForm1.Button_ListSortClick(Sender: TObject);
begin
  G_StrList.Sort;
  Button_ListShow.Click;
end;

// 排序反转
procedure TForm1.Button_ListReverseClick(Sender: TObject);
var
  i, mCount: Integer;
  mTempStr: string;
begin
  mCount := G_StrList.Count - 1;
  for i := 0 to mCount do
  begin
    if i >= (mCount - i) then
      Break;
    mTempStr := G_StrList[mCount - i];
    G_StrList[mCount - i] := G_StrList[i];
    G_StrList[i] := mTempStr;
  end;
  Button_ListShow.Click;
end;

// 清空
procedure TForm1.Button_ListClearClick(Sender: TObject);
begin
  G_StrList.Clear;
  Button_ListShow.Click;
end;