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打开"我的电脑"等特殊文件夹

Delphi ios 保持设备开机状态

Delphi获取本机的ip地址

Delphi获取程序自身路径的函数

Delphi反调试【初级】检测法

Delphi 程序嵌入桌面效果的实现

Delphi 获取internet缓存文件

Delphi xe7 /xe7 update1/xe8 安装失败 只能装到27%

Delphi中用idhttp获取json数据乱码问题

Delphi fastreport快速入门

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

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