文档章节

TStringList 常用操作

涂孟超
 涂孟超
发布于 2014/09/26 15:35
字数 381
阅读 4
收藏 0
//TStringList 常用方法与属性:
var
  List: TStringList;
  i: Integer;
begin
  List := TStringList.Create;
  List.Add('Strings1');           {添加}
  List.Add('Strings2');
  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('c:\tmp.txt');{打开}
  List.SaveToFile('c:\tmp.txt');  {保存}
  List.Clear;                     {清空}
  List.Free;                      {释放}
end;

 
 
 
 
 

 

 

  
//读入字符串 var List: TStringList; begin List := TStringList.Create; List.CommaText := 'aaa,bbb,ccc,ddd'; //相当于: List.Text := 'aaa' + #13#10 + 'bbb' + #13#10' + 'ccc' + '#13#10' + 'ddd'; ShowMessage(IntToStr(List.Count)); //4 ShowMessage(List[0]); //aaa List.Free; end;
//置换分隔符 var List: TStringList; begin List := TStringList.Create; List.Delimiter := '|'; List.DelimitedText := 'aaa|bbb|ccc|ddd'; ShowMessage(IntToStr(List.Count)); //4 ShowMessage(List[0]); //aaa List.Free; end;
//类似的哈希表操作法 var List: TStringList; begin List := TStringList.Create; List.Add('aaa=111'); List.Add('bbb=222'); List.Add('ccc=333'); List.Add('ddd=444'); ShowMessage(List.Names[1]); //bbb ShowMessage(List.ValueFromIndex[1]); //222 ShowMessage(List.Values['bbb']); //222 //ValueFromIndex 可以赋值: List.ValueFromIndex[1] := '2'; ShowMessage(List[1]); //bbb=2 //可以通过 Values 赋值: List.Values['bbb'] := '22'; ShowMessage(List[1]); //bbb=22 List.Free; end;
//避免重复值 var List: TStringList; begin List := TStringList.Create; List.Add('aaa'); List.Sorted := True; //需要先指定排序 List.Duplicates := dupIgnore; //如有重复值则放弃 List.Add('aaa'); ShowMessage(List.Text); //aaa //Duplicates 有3个可选值: //dupIgnore: 放弃; //dupAccept: 结束; //dupError: 提示错误. List.Free; end;
//排序与倒排序 {排序函数} function DescCompareStrings(List: TStringList; Index1, Index2: Integer): Integer; begin Result := -AnsiCompareText(List[Index1], List[Index2]); end; procedure TForm1.Button1Click(Sender: TObject); var List: TStringList; begin List := TStringList.Create; List.Add('bbb'); List.Add('ccc'); List.Add('aaa'); //未排序 ShowMessage(List.Text); //bbb ccc aaa //排序 List.Sort; ShowMessage(List.Text); //aaa bbb ccc //倒排序 List.CustomSort(DescCompareStrings); //调用排序函数 ShowMessage(List.Text); //ccc bbb aaa //假如: List.Sorted := True; List.Add('999'); List.Add('000'); List.Add('zzz'); ShowMessage(List.Text); //000 999 aaa bbb ccc zzz end;
//待续...

本文转载自:http://www.cnblogs.com/del/archive/2007/12/10/990040.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
[转载红鱼儿]kbmmw 开发点滴:TkbmMWLock用法

TStringList不是线程安全的,当我们在线程用到他是,要做保护。方法有两种,一种是用delphi自带的Critical,另外一种就是kbmMW为我们提供的TkbmMWLock类。 现在我们看看如何用TkbmMWLock为T...

xalion
2012/10/23
0
0
C语言字符串库--AString

AString一个轻量级的自动内存管理的C语言字符串库,可以方便的对字符串进行各种操作,而无需直接操作内存,同时,AString还提供了一个AStringList结构,与Delphi中的TStringList类似,方便操...

涛儿
2011/12/06
1K
0
delphi7 指针操作错误

源代码: unit Unit1; type TForm1 = class(TForm) Edit1: TEdit; ListView1: TListView; Button1: TButton; procedure FormCreate(Sender: TObject); procedure ListView1Deletion(Sender: T......

xjplab
2016/09/02
169
4
Delphi实现的MIME邮件格式解析类库

研究了一下Pop3的邮件接收协议,然后随手写了一个Pop3的邮件接收控件!Pop3的邮件协议实际上是很简单的,知道那几个命令就行了,与服务器之间的交互是一问一答得方式,控制起来也容易,相对而...

技术小美
2017/11/12
0
0
百度输入提示 Delphi 实现

我们在百度时,输入部分内容,即可获得输入项选择列表,从而大大减少录入,用户的体验很好,下面是用delphi 模拟这种效果的设计 定义 DataLst: TStringList; 用于存放供选择的数据。 Edt1:T...

vga
2015/08/25
0
0

没有更多内容

加载失败,请刷新页面

加载更多

爬虫教程」Python做一个简单爬虫,小白也能看懂的教程

俗话说“巧妇难为无米之炊”,除了传统的数据源,如历史年鉴,实验数据等,很难有更为简便快捷的方式获得数据,在目前互联网的飞速发展写,大量的数据可以通过网页直接采集,“网络爬虫”应运...

糖宝lsh
今天
1
0
KEIL MDK工程中的宏定义:字符,值,字符串

下图中定义了2个宏: 等效于文件中: #define MCU_FLASH_LESSTHAN_64K #define VERSION_INFO_hw 'a' // MDK :VERSION_INFO_hw="'a'" 即MDK中的VERSION_INFO_hw="'a'" 和 #define VERS......

SamXIAO
今天
0
0
集合的最优子集划分

问题描述:如何将一个个数为n的集合N划分为为若干个子集N1…Nk,其中1≤k≤n,计算出每个子集的最优结果R1…Rk,使得F(R1…Rk)为最优的结果。 这个问题可以分成3步解决: 求出集合所有子集 ...

laolin23
今天
0
0
JavaScript实现在线Markdown编辑器、转换HTML工具-toolfk程序员工具网

本文要推荐的[ToolFk]是一款程序员经常使用的线上免费测试工具箱,ToolFk 特色是专注于程序员日常的开发工具,不用安装任何软件,只要把内容贴上按一个执行按钮,就能获取到想要的内容结果。T...

toolfk
今天
2
0
Source Tree 在git 密码更新后,无法拉取代码的解决办法

背景: git 密码总是需要修改。在修改代码后,拉去代码, source tree 总提示access denied. 解决方法:重新修改git 仓库对应的密码。 for mac:应用程序 -》 钥匙串 -》 搜索 source tre...

Carlyle_Lee
今天
2
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部