HexToInt

[himitsu]

im Prinzip:

Delphi-Quellcode:

Temp: LongInt;

Temp := Ord(GetChar);
Temp := Temp shl 8 or Ord(GetChar);
Temp := Temp shl 8 or Ord(GetChar);
Temp := Temp shl 8 or Ord(GetChar);

oder du ließt die gesamten 4 Byte via GetBlock direkt in Temp

[Carsten1234]

Sieht latürnich galanter aus als meines.

Zitat von himitsu:

oder du ließt die gesamten 4 Byte via GetBlock direkt in Temp

Jein. Diese vier Werte sind Teile eines ganzen Datenstroms an Werten, wobei, um es ganz genau zu sagen, dieser gesamten Datenstrom via GetBlock in ein array of char aus- bzw. eingelesen wird. Und aus diesem array of char hole ich mir dann letztendlich (und nicht via GetChar) die benötigten Werte.

[himitsu]

In Bezug auf Delphi2009 (Unicode) wäre da ein Array of AnsiChar wohl besser geeignet.

Delphi-Quellcode:

var Data: Array of AnsiChar;
//oder
var Data: Array[0..x] of AnsiChar;
  i: LongInt {oder Integer};

i := PLongInt(@Data[startindex]);