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

本文整理自网络，侵删。

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

function SplitStr2(const Source, Splitter: String): TArray<string>;
begin
  Result := Source.Split([Splitter]);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  txt1: TStringList;
  s: string;
  StrArr: TArray<string>;
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;

 

相关阅读 >>

Delphi tstreamreader 和tstreamwriter

Delphi 加壳原理与简单实现加壳

Delphi研究之驱动开发篇（四）--使用系统内存堆

Delphi 中的包开发

download 和 http downloader 源码

Delphi 释放资源文件

Delphi如何生成一段时间内的所有日期

Delphi 编写服务程序的几点总结

Delphi firedac mysql 连接

Delphi10.3读取json数组

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

转载请注明出处：木庄网络博客 » Delphi 百万次重复调用字符分割函数，不耗内存用法