Thema: Delphi HEX nach DWORD umwandeln

Einzelnen Beitrag anzeigen

Benutzerbild von Piro
Piro

Registriert seit: 14. Jul 2003
Ort: Flintbek
810 Beiträge
 
Delphi XE2 Professional
 
#6

Re: HEX nach DWORD umwandeln

  Alt 9. Dez 2009, 09:14
So, ich habe es jetzt mal umgesetzt.

Delphi-Quellcode:
procedure Tfrm_main.btn_convertClick(Sender: TObject);
var
 sl: TStringList;
 i : Integer;
begin
 sl := Split(edt_ipaddress.Text, '.');

 // HEX Wert ermitteln
 lbl_hex.Caption := '$' + IntToHex(StrToInt(sl[0]), 2) + IntToHex(StrToInt(sl[1]), 2) + IntToHex(StrToInt(sl[2]), 2) + IntToHex(StrToInt(sl[3]), 2);

 i:= StrToInt(lbl_hex.Caption);

 // DWORD Wert ermitteln
 lbl_dword.Caption := IntToStr(i);
end;
Beispiel
Code:
192.168.1.2 -> -> $c0a80102 -> -1062731518
Warum kommt da ein Minus?

In diesem Thread kommt bei generic ein anderer Wert heraus, warum?
VirtualStringTree: IP Adressen sortieren
  Mit Zitat antworten Zitat