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 将string 转为 array of ansichar

Delphi监控指定进程防止被关闭

Delphi中判断窗体最大化和最小化事件

Delphi 获取网络图片

Delphi 提升权限查找进程关闭进程单元

Delphi memo 文本列合并

Delphi 精炼的数字转换人民币大写转换代码

Delphi 类和对象

android实例-拍摄和分享照片、分享文本(xe8+小米2)

Delphi延时

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

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