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与sqlite3数据库

Delphi 处理之文本文件

Delphi rs232c接脚与对连线

Delphi 获取中文/数字星期的函数

Delphi getrandompassword 生成随机密码

Delphi ini 文件操作记要: 使用 tmeminifile

Delphi中updown组件的使用方法

Delphi padl 处理字符串的函数

Delphi 得到不同平台的录音文件保存路径

Delphi memo中禁止汉字

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

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