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;
 

相关阅读 >>

Delphi 获得memo、richedit的光标位置

Delphi中使用 twebbrowser 编辑网页

Delphi使用spcomm串口通信 串口号大于10出错的解决办法

Delphi 让scrollbox响应鼠标的滚动消息

Delphi strtoint 将“字符型”转换成“整数型”

Delphi dll创建并调用

Delphi程序禁止结束进程

Delphi 使用 idhttp 获取 utf-8 编码的中文网页

Delphi中多线程下使用使用 unidac+mssql 需要注意的问题

Delphi 数据库重置用户密码制作

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

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