DELPHI的Tstring抽象类研究
TStrings是一个抽象类，在实际开发中，是除了基本类型外，应用得最多的。
常规的用法大家都知道，现在来讨论它的一些高级的用法。
先把要讨论的几个属性列出来：
1、CommaText
2、Delimiter & DelimitedText
3、Names & Values & ValuefromIndex
先看第一个：CommaText。怎么用呢？用代码说话：
const
constr :String = 'aaa,bbb,ccc,ddd';
var
strs :TStrings;
i :Integer;
begin
strs := TStringList.Create;
strs.CommaText := constr;
for i := 0 to Strs.Count-1 do
ShowMessage(Strs[i]);
end;
执行了这段代码后，可以看到ShowMessage显示出来的分别是：aaa bbb ccc ddd。
也就是说，strs.CommaText := constr这一句的作用，就是把一个字符串以','为分割符，分段添加到TStrings中。
那么如果不是以','来分割，又该怎么做呢？现在看第二个例子。使用Delimiter和DelimitedText。
const
constr :String = 'aaa\bbb\ccc\ddd';
var
strs :TStrings;
i :Integer;
begin
strs := TStringList.Create;
strs.Delimiter := '\';
strs.DelimitedText := constr;
for i := 0 to Strs.Count-1 do
ShowMessage(Strs[i]);
end;
可以看到， 显示的效果和第一个例子是一模一样的。解释一下：
Delimiter为分隔符，默认为：','。DelimitedText就是按Delimiter为分隔符的一个串，得到赋值后回把这个字符串按Delimiter的字符添加到TStrings中。
说到这里，有想起一个属性，QuoteChar。其默认值为：'"'（不包括单引号）
有何用呢？看例子：
const
constr :String = '"aaa"\"bbb"\"ccc"\"ddd"';
var
strs :TStrings;
i :Integer;
begin
strs := TStringList.Create;
strs.Delimiter := '\';
strs.DelimitedText := constr;
for i := 0 to Strs.Count-1 do
ShowMessage(Strs[i]);
end;
显示出来的仍然是aaa bbb ccc ddd。为什么不是："aaa" "bbb" "ccc" "ddd"呢？
再来看一个例子：
const
constr :String = '|aaa|\|bbb|\|ccc|\|ddd|';
var
strs :TStrings;
i :Integer;
begin
strs := TStringList.Create;
strs.Delimiter := '\';
str
相关文档：
招聘人数： 4人
学历要求： 不限
工作年限： 不限
薪资范围： 面议
工作地点： 北京通州九棵树
Delphi程序员四名职位要求
要求:
1. 熟练使用DELPHI(C,C++, C#等)进行开发；
2. 具有良好的程序编写习惯；
3. 扎实的基本功，结构清晰、合理；
4. 良好的执行能力，较好的完成预定任务；
5. 上进心强，能吃� ......
招聘人数： 4人
学历要求： 不限
工作年限： 不限
薪资范围： 面议
工作地点： 北京通州九棵树
Delphi程序员四名职位要求
要求:
1. 熟练使用DELPHI(C,C++, C#等)进行开发；
2. 具有良好的程序编写习惯；
3. 扎实的基本功，结构清晰、合理；
4. 良好的执行能力，较好的完成预定任务；
5. 上进心强，能吃� ......
有一段时间没正经的用delphi了，前两天下载了Delphi2010，用它来找找Delphi的感觉，把写的一些东西共享出来，大家共同学习一下，呵呵。
我想做一个双色球的分析软件，以下是其中实现的部分类的单元文件，其他文件后续一点一点的补齐，有不妥的地方，希望大家指正，谢谢啦！
在使用Delphi2010是，发现个问题，在用show函数 ......
常忘记，在此做笔记。
这几个函数都包含在StrUtils中，所以需要uses StrUtils;
假设字符串是 Dstr := ’Delphi is the BEST’, 那么
LeftStr(Dstr, 5) := ’Delph’
MidStr(Dstr, 6, 7) := ’ ......
这个本来我我在DELPHI盒子看到的，后来我对其作了一点修改，这里上全部代码，可以直接用
首先有两个自定的转换函数：
function myStrToHex(s:string):string; //字串转16进制
var
TmpStr:string;
i:integer;
begin
TmpStr:='';
for i:=1 to Length(s)do
TmpStr:=TmpStr+IntToHex(ord(s[i]),2);
Res ......
