Hex <--> Binär- / Dualzahl ???

[Qnkel]

Delphi-Quellcode:

function ConvertHex2Dec(const Source: String; var Dest: String): Integer;
var
  Buffer: PChar;
  Len: Integer;
begin
  Len := (Length(Source) div 2) +1;
  GetMem(Buffer, Len);
  ZeroMemory(Buffer, Len);
  Result := HexToBin(PChar(LowerCase(Source)), Buffer, Len);
  Dest := Buffer;
  FreeMem(Buffer);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ConvertHex2Dec('3f', a);
  ShowMessage(a);
end;

Ganz nett. a is jetz '?' oder bei 'f3' nen griechischer Buchstabe. Das hatte ich noch nicht

Oh man spinnt mein Delphi oder was... werd noch wahnsinnig