Delphi Split 方法使用

本文整理自网络，侵删。

 
procedure Split(const Text: string; Delimiter: Char; List: TStrings);
var Start, Index: Integer;
begin
  List.BeginUpdate;
  try
    Start := 1;
    for Index := 1 to Length(Text) do
      if Text[Index] = Delimiter then
      begin
        List.Add(Copy(Text, Start, Index - Start));
        Start := Index + 1;
      end;

    if Start <= Length(Text) then
      List.Add(Copy(Text, Start, Length(Text) - Start + 1));
  finally
    List.EndUpdate;
  end
end;



procedure TForm1.Button1Click(Sender: TObject);
begin
Split('123,456,789',',',Memo1.Lines);
Split('111,222,333',',',Memo1.Lines);
end;
 

相关阅读 >>

Delphi6-xe5 中的md5实现方法

trichedit 是一个标准的rtf编辑器

Delphi xe android]获取屏幕的物理分辨率

Delphi webbrowser 无法调用当前浏览器的版本

Delphi d10.x 安卓app开发中按返回键后程序不退出程序的方法

Delphi中判断webbrowser的页面是否加载完成

Delphi 动态库里查询是否联接数据库

Delphi 通过指点操作获得窗口句柄

Delphi 如何编写需要启动参数的Delphi程序

Delphi trunc转换函数

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

转载请注明出处：木庄网络博客 » Delphi Split 方法使用