本文整理自网络,侵删。
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; endend;
procedure TForm1.Button1Click(Sender: TObject);beginSplit('123,456,789',',',Memo1.Lines);Split('111,222,333',',',Memo1.Lines);end;
相关阅读 >>
Delphi 弹出输入框的inputquery, inputquery 函数用法
Delphi indy 10tidftp中的directorylisting使用
Delphi xe5 android实现繁体字到简体字的转换函数
更多相关阅读请进入《Delphi》频道 >>