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

在分析过程中，我遇到了一个函数，该函数花了很多时间，但实际上归结为这段非常简单的代码：

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

此函数返回预期的子字符串，但对于较长的输入而言，缩放效果不佳。我在CPU视图中查看了汇编代码，据我所知（我通常不在汇编级别工作），似乎AInput在调用之前已隐式转换为字符串Copy。

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

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

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

除了SetString基于零的工作（不是基于副本的工作）之外，Copy在验证其输入方面似乎还有很多其他小事情，但并未记录全部（例如，任何小于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版本）没有太大不同。