Registriert seit: 10. Sep 2004
Ort: Dülmen
464 Beiträge
Delphi 7 Professional
|
Re: Hex <--> Binär- / Dualzahl ???
1. Apr 2006, 11:45
Kleines Beispiel.
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);
try
Result := HexToBin(PChar(LowerCase(Source)), Buffer, Len);
Dest := Buffer;
finally
FreeMem(Buffer);
end;
end;
Stefan "Geht nicht!" ist keine Fehlerbeschreibung und "Hab ich schon versucht!" keine Antwort!
Hey, it compiles! Ship it!
|