StrToHex Ersatz

[Neutral General]

ok überzeugt :wink:
Ich benötige aber die andere Darstellung, wie sie die Funktion von bigg liefert, was du aber ja nicht wissen kannst ...

[Nightshade]

Jau, richtig, hab ich nicht dran gedacht :oops:


Muss natürlich so aussehen :

Delphi-Quellcode:

function StringToHex(s:string) : string;
var t : integer;
begin
  result := '';
  for t := 1 to length(s) do begin
    if t = length(s) then
      result := result + IntToHex(ord(s[t]),2)
    else
      result := result + IntToHex(ord(s[t]),2) + ' ';
  end;
end;

[Neutral General]

Gut, jetzt funktioniert deine Variante nämlich auch so wie ich es brauche :)