delphi 自定�x分割字符串

本文整理自网络，侵删。

  function split(src,dec : string):TStringList;
var
i : integer;
str : string;
begin
result := TStringList.Create;
repeat
i := pos(dec,src);
str := copy(src,1,i-1);
if (str='') and (i>0) then
begin
delete(src,1,length(dec));
continue;
end;
if i>0 then
begin
result.Add(str);
delete(src,1,i+length(dec)-1);
end;
until i<=0;
if src<>'' then
result.Add(src);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
ss : TStringList;
str,dec : string;
begin
str := '1111||2222||||3333|||4444||';
dec := '||';
ss := split(str,dec);
memo1.Lines.AddStrings(ss);
ss.Free;
end;
 

相关阅读 >>

在一个exe文件中查找指定内容,找到则返回起始位置,否则返回0

Delphi字符串旋转任意角度

idtcpclient和idtcpclient 主要属性和方法

Delphi 屏蔽汉字，年月日，时间，银行卡正则表达式

Delphi adoquery查询用户是否存在

Delphi 跨平台打开网址链接

Delphi 多核机器上编程实现将指定进程pid放到指定cpu上运行

Delphi 回车 选择下一个控件

Delphi 关于使用access中带参数的查询的用法

Delphi之猥琐的webserver实现

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 自定�x分割字符串