Bzw. hier die StringBuilder-Version mit hinzugefügtem const-Modifier:
Delphi-Quellcode:
function MyHexToStr(const s: string): string;
var
i, L: Integer;
SB: TStringBuilder;
begin
Result := '';
L := Length(s);
i := 1;
SB := TStringBuilder.Create;
try
while i < L do
begin
SB.Append(MyHexToChar(s, i));
Inc(i, 4);
end;
Result := SB.ToString;
finally
SB.Free;
end;
end;
Scheint nochmals um eine kleine Spur schneller zu sein.