本文整理自网络,侵删。
function SplitString(Source, Deli: string): TStringList; //把字符串分割成字符串组var EndOfCurrentString: byte; StringList: TStringList;begin StringList := TStringList.Create; while Pos(Deli, Source) > 0 do begin EndOfCurrentString := Pos(Deli, Source); StringList.add(Copy(Source, 1, EndOfCurrentString - 1)); Source := Copy(Source, EndOfCurrentString + length(Deli), length(Source) - EndOfCurrentString); end; Result := StringList; StringList.Add(Source);end;
简单用法:procedure TForm1.FormCreate(Sender: TObject);beginCaption:=SplitString('123==456==789','==').Strings[1];end;
相关阅读 >>
Delphi 10.3.x 截取字符串函数substring 和copy()常用字串符处理函数用法
Delphi 文字的高度与宽度: canvas.textextent
更多相关阅读请进入《Delphi》频道 >>