StringToHex

[Delphiturbo]

Hi

ich bin mit dem Ergebnis nicht zufrieden !

Delphi-Quellcode:

function StringToHex2(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;

procedure TForm1.Button2Click(Sender: TObject);
begin
showmessage(StringToHex2('0000'));
end;

Das Ergebnis für 0000 bekomme ich 30303030 !!!

Das ist kein Hex sondern Dezimal oder sowas