Binärzeichen darstellen

[ErazerZ]

Delphi-Quellcode:

var
  s: string;
  i: integer;
begin             
  s := '{œ“Ÿ';
  for i := 1 to Length(s) do
  begin
    ShowMessage(IntToHex(ord(s[i]), 2));
  end;