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获取内存及cpu信息的函数

Delphi 添加或解除引号

Delphi 日期相减 比较大小 过期时间函数

Delphi中ado异步执行方式

Delphi abort 用法

Delphi 打开win8及以上操作系统的系统已安装程序目录

Delphi 使用钩子函数建立一个全局的鼠标钩子

Delphi for 循环输出 a-z

Delphi远程开机再配合远程控制

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

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