Einzelnen Beitrag anzeigen

Benutzerbild von ste_ett
ste_ett

Registriert seit: 10. Sep 2004
Ort: Dülmen
464 Beiträge
 
Delphi 7 Professional
 
#6

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

  Alt 1. Apr 2006, 10: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!
  Mit Zitat antworten Zitat