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
