Delphi7 中TStringList的Delimiter DelimitedText有BUG，字符串分割有问题

本文整理自网络，侵删。

 
var
   sl: TStringList;
   str: string;
   i: Integer;
begin
   str := 'aa,b b,cc,dd';
   sl := TStringList.Create;
   sl.Delimiter := ',';
   sl.DelimitedText := str;
   for i := 0 to sl.Count - 1 do
      ShowMessage(sl[i]);
   FreeAndNil(sl);
end;
结果是：
aa
b
b
cc
dd
它把空格也当成分割符了。
正确的解决方法是：
//uses IdStrings
var
   sl: TStringList;
   str: string;
   i: Integer;
begin
   str := 'aa,b b,cc,dd';
   sl := TStringList.Create;
   SplitColumns(str, sl, ',');//该函数没有上述的BUG
   for i := 0 to sl.Count - 1 do
      ShowMessage(sl[i]);
   FreeAndNil(sl);
end;
结果是：
aa
b b
cc
dd
 

相关阅读 >>

Delphi 提取网页源文件纯文本函数

Delphi 实现 托动pagecontrol上的标签页

Delphi 取得ie下面输入框内容

Delphi xe8在firemonkey tlistbox中显示图像

Delphi image 直接加载资源文件

Delphi xe10.1 andriod app中文名称

Delphi 建立快捷方式的函数: createshortcut

Delphi 多次改变 richedit.text部份文本的颜色后，出现所有字体都变色的的解决办法

Delphi enumwindows 获取窗体句柄 进程id 窗体信息

Delphi ado组件动态连接access数据库

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

转载请注明出处：木庄网络博客 » Delphi7 中TStringList的Delimiter DelimitedText有BUG，字符串分割有问题