delphi 百万次重复调用字符分割函数，不耗内存用法

QQ黑夜杀手 281309196 提供代码遇到delphi高级问题可以找他，高手。

function SplitStr2(const Source, Splitter: String): TArray;

begin

Result := Source.Split([Splitter]);

end;

procedure TForm1.Button1Click(Sender: TObject);

var

i: Integer;

txt1: TStringList;

s: string;

StrArr: TArray;

begin

s := 'adsfafasdfasdfdsafdsafasdfasdf,asfdasdfasdfasdfasdf,asfdasdfasdfasdf,asdfasdfasfd';

txt1 := TStringList.Create;

try

for i := 1 to 1000000 do

begin

StrArr := SplitStr2(s, ',');

txt1.add(StrArr[0] + StrArr[1] + StrArr[2]);

end;

finally

FreeAndNil(txt1);

end;

ShowMessage('完毕');

end;

推荐分享