Suche String->Hex Funktion

[Coffeecoder]

Zitat von Sir Rufo:

@DeddyH

Warum so umständlich?

Delphi-Quellcode:

function StrToHex( const s: string ): string;
var
  i : integer;
begin
  Result := ''; // <----
  for i := 1 to Length( s ) do
    Result := Result + Format( '%.*x', [SizeOf( Char ) * 2, Ord( s[i] )] );
end;

Muss nicht noch vorher Result initialisiert werden?

[Jumpy]

Danke Deddyh. Mit der Format-Funktion hat das geklappt. Muss zwar nochmal alle exotischen Zeichen ausprobieren, aber es sieht gut aus:

Delphi-Quellcode:

procedure TForm2.Button2Click(Sender: TObject);
begin
  showmessage(Hex(edCommand.Text));
end;

function TForm2.Hex(s: String): String;
var
  h:String;
  i:integer;
begin
  for i := 1 to Length(s) do
    h:=h+Format('%.2x', [Ord(s[i])]);
  Result:=h;
end;

StrToBin() kannte mein Delphi auch nicht