有些东西做多了总希望能以更简单的方法实际。刚开始知道的东西很少。于是简单的问题经过我们复杂的处理终于解决。不时也兴奋一下。可是做的越多。就发现越多的新东西。比如下近常用到的字符串分割
时常有些格式如：xxxx,xxxxxx,ddsfds,xfd
http://www.360doc.com/mailto:fdfs@dsafd@dsafde@ dsdf@
dsf| sdfds |dsfad| dfdsf
之类的东西要取出被分割的值。开始只知道 POS 啊COPY 啊，后来学着用正则啊，再学替换啊后来又发现其实delphi本身就有一个分割函数 ：ExtractStrings
function ExtractStrings(Separators: TSysCharSet; WhiteSpace: TSysCharSet; Content: PAnsiChar; Strings: TStrings): Integer;
举例：p:= xxx | bbb | www.baidu.com/szba
ExtractStrings(['|'],[' '],pchar(p),memo1.Lines);
