Delphi 巧用TstringList

xiaxia421

于 2008-10-23 23:09:00 发布

阅读量891

点赞数 1

CC 4.0 BY-SA版权

文章标签： delphi list string

本文链接：https://blog.csdn.net/xiaxia421/article/details/3132742

本文介绍了一种使用Delphi中的TStringList组件及其Delimiter属性来高效处理含有多种特殊分隔符的字符串的方法。通过将不同的特殊符号统一替换为同一个Delimiter字符，实现了对原始字符串的有效分割。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

    TStringList 中有一个属性Delimiter，很多时候可以巧用这个属性！有一字符串，中间有许多特殊符号，现在需要把其分割开，如果用TStringList的Delimiter属性，将会使程序变得非常简单。TStringList中的DelimitedText会以定义的Delimiter字符做分隔符！

例子：

var
List: TStringList;
s: string;
i: integer;
begin
//假设字符串中的分隔符为间隔符： %%/##/??/!!
Memo2.Lines.Clear;
List := TStringList.Create;
List.Delimiter := ',';    //用','号做分隔符
s := Memo1.Text;
try
    s := StringReplace(s, '%%', ',', [rfReplaceAll]);
    s := StringReplace(s, '##', ',', [rfReplaceAll]);
    s := StringReplace(s, '??', ',', [rfReplaceAll]);
    s := StringReplace(s, '!!', ',', [rfReplaceAll]);
    List.DelimitedText := s;
    For i:=0 to List.Count-1 do
      if List[i]<>'' then
        Memo2.Lines.Add(List[i]);
finally
    List.Free;
end;
end;