Delphi根据字符分割字串成数组

最新推荐文章于 2023-06-07 08:43:26 发布

MichaelScofield

最新推荐文章于 2023-06-07 08:43:26 发布

阅读量4.8k

点赞数 4

分类专栏：个人挫品笔记 Delphi 挫码文章标签： delphi string integer delete function

本文链接：https://blog.csdn.net/MichaelJScofield/article/details/8066454

版权

Delphi 同时被 3 个专栏收录

15 篇文章 0 订阅

订阅专栏

个人挫品

11 篇文章 0 订阅

订阅专栏

挫码

7 篇文章 0 订阅

订阅专栏

发现经常需要这个函数，每次都要翻找以前的工程文件，遂发上来方便以后索引。

function Split(const Source,Delimiter:String):SArray;
var
  iCount,iPos,iLength: Integer;
  sTemp: String;
  aSplit:SArray;
begin
  sTemp := Source;
  iCount := 0;
  iLength := Length(Delimiter) - 1;
  repeat
    iPos := Pos(Delimiter, sTemp);
    if iPos = 0 then Break
    else
    begin
      Inc(iCount);
      SetLength(aSplit, iCount);
      aSplit[iCount - 1] := Copy(sTemp, 1, iPos - 1);
      Delete(sTemp, 1, iPos + iLength);
    end;
  until False;
  if Length(sTemp) > 0 then
  begin
    Inc(iCount);
    SetLength(aSplit, iCount);
    aSplit[iCount - 1] := sTemp;
  end;
  Result := aSplit;
end;

type
SArray = array of string;

分割类似

str:= 'hello|world';

arrList := Split(str,'|');

然后 arrList[0] = hello arrList[1] = world