Hallo! Ich möchte folgende Funktion auf extreme Geschwindigkeit optimieren:
Delphi-Quellcode:
function MyStrToHex(s: string): string;
var
i: Integer;
begin
Result := '';
for i := 1 to Length(s) do
Result := Result + IntToHex(Ord(s[i]), 4);
end;
Kennt jemand eine Assembler-Version davon?