文档章节

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
Delphi实现的MIME邮件格式解析类库

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

技术小美
2017/11/12
0
0
TstringList 的 双引号 问题处理

当数据中有引号时,TstringList 默认会将 双引号去掉,为避免发生这种情况, 用下面设置解决: lst1.QuoteChar := #0;

vga
2015/01/12
0
0
百度输入提示 Delphi 实现

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

vga
2015/08/25
0
0

没有更多内容

加载失败,请刷新页面

加载更多

嵌入式应用选择合适的微控制器

准备所需硬件接口列表 使用微控制器的基本硬件框图,准备一份微控制器需要支持的所有外设接口的列表。微控制器中有两种常见的接口类型需要列出。第一种是通信接口,这些是外围设备,如USB,S...

linuxCool
14分钟前
2
0
Group by使用

概述 GROUP BY我们可以先从字面上来理解,GROUP表示分组,BY后面写字段名,就表示根据哪个字段进行分组,如果有用Excel比较多的话,GROUP BY比较类似Excel里面的透视表。 GROUP BY必须得配合...

小橙子的曼曼
25分钟前
3
0
机械臂写中文

Make Me a Hanzi https://www.skishore.me/makemeahanzi/ 使用uArm Swift Pro机械臂写中文-毛笔字 https://github.com/makelove/Robot_Arm_Write_Chinese...

itfanr
36分钟前
4
0
OSChina 周三乱弹 —— 孤独到都和病毒发生了感情了

Osc乱弹歌单(2019)请戳(这里) 【今日歌曲】 @-冰冰棒- :#今日歌曲推荐# 逃跑计划《一万次悲伤 (Live)》 《一万次悲伤 (Live)》- 逃跑计划 手机党少年们想听歌,请使劲儿戳(这里) 现在...

小小编辑
今天
1K
14
test

//// main.c// Test//// Created by 吕颖 on 2019/1/16.// Copyright © 2019年 carmen. All rights reserved.//#include <stdio.h>#include <stdlib.h>#include <t......

carmen-ly
今天
3
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部