MyStrToHex extrem schnell

[Bernhard Geyer]

Zitat von PeterPanino:

Meinst etwa so?:

Für die Methodensignatur kannst du weiter Strings nehmen.
Nur beim Zusammenbauen des Strings den Stringbuilder nehmen:

Delphi-Quellcode:

function MyStrToHex(const s: String): String;
var
  i: Integer;
  StrBuilder: TStringBuilder;
begin
  StrBuilder := TStringBuilder.Create;
  try
    for i := 0 to s.Length - 1 do 
      StrBuilder.Append(IntToHex(Ord(s[i]), 4)); 

    result := STrBuilder.ToString;
  finally
    StrBuilder.Free;
  end;
end;

Ansonsten probier Medium's Version.