如何将PChar的一部分提取到字符串中？

function GetSubstring(AInput: PChar; AStart,ASubstringLength: Integer): string;
begin
  Result := Copy(AInput,AStart,ASubstringLength);
end;

此函数返回预期的子字符串,但对于较长的输入,它不能很好地扩展.我查看了CPU视图中的汇编代码,从我所知道的(我通常不在汇编程序级别工作),似乎在调用Copy之前将AInput隐式转换为字符串.

但是,由于此时字符串/字符数组的长度未知,转换代码必须遍历PChar的长度,直到找到空终止符.这可以解释较长输入的可怕缩放.

但是,由于调用者传入了PChar的长度,我最初认为可以将该方法转换为使用SetString.

function GetSubstring(AInput: PChar; AStart,ASubstringLength: Integer): string;
begin
  SetString(Result,AInput + AStart - 1,ASubstringLength);
end;

除了SetString工作从零开始(不是一个基于复制),复制在验证其输入方面似乎还有许多其他的小东西,并非所有这些都被记录(例如,任何起始值小于1)改为1).所以上面的天真实现并不总是像原始实现一样.

我的目标是尽可能复制Copy例程,因为这个函数是库的一部分,并且已被我的同事广泛使用.

我想知道以下实现是否实现了这一点,或者我是否需要了解Copy的任何其他警告.注意：FLength是AInput的实际长度,它来自该函数所属模块中的另一部分.我为此示例删除了其他部分.

function GetSubstring(AInput: PChar; AStart,ASubstringLength: Integer): string;
begin
  if (AInput = nil) then begin
    Result := '';
  end else begin
    if (AStart < 1) then begin
      AStart := 0;
    end else begin
      AStart := AStart - 1;
    end;
    if (ASubstringLength + AStart > FLength) then begin
      ASubstringLength := FLength - AStart;
    end;
    SetString(Result,AInput + AStart,ASubstringLength);
  end;
end;

我正在使用Delphi 2006,但我认为这与其他版本的产品(至少非Unicode版本)没有太大区别.