fra Hex til binær?

Har fundet ud af det...

hvordan?

Jeg fik tilsendt en funktion der gjorde det - her er den:

const
  test_it = $9597;
var
  test_str: string;

function  hex_to_bin(htb_arg: char): string;
  var
    i,
    temp,
    mask: byte;
    wstr: string;
  begin
    temp:=ord(htb_arg);
    mask:=$80;
    wstr:='';
    for i:=1 to 8 do
      begin
        if (temp and mask) > 0 then
          wstr:=wstr + '1'
        else
          wstr:=wstr + '0';
        mask:=mask shr 1;
      end;
    hex_to_bin:=wstr;
  end;

procedure TForm1.FormShow(Sender: TObject);
begin
  test_str:=chr(hi(test_it)) + chr(lo(test_it));
  label1.caption:=hex_to_bin(test_str[1]) + hex_to_bin(test_str[2]);
end;

Næh hvor det bare lyder besværligt!

Jeg ved at du har fået denne funkton, men prøv lige at checke det her ud:

function hex2bin(val: integer): string;
var
  a: integer;
  str: string;
begin
  str:='';
  for a:=0 to 15 do if (val and intpower(2,a)) then str:=str+'1' else str:=str+'0';
  hex2bin:=str;
end;

Nu må jeg nok hellere lige sige at det her virker i v5 i hvert tilfælde, men jeg er ikke helt sikker på v4!

= )

Ups der manglede lige noget i str:='';