Moin Peter,
da fallen mir, so auf Anhieb, drei Möglichkeiten ein, wobei DeddyH schon eine davon geliefert hat:
Delphi-Quellcode:
function Hex2IP_Variante2(const AiHex : Integer) : string;
type
TcsSplitInt = record
case byte of
1 : (iValue : Integer);
2 : (b4 : Byte;
b3 : Byte;
b2 : Byte;
b1 : Byte);
end;
var
siValue : TcsSplitInt;
begin
siValue.iValue := AiHex;
Result := IntToStr(siValue.b1)+'.'+IntToStr(siValue.b2)+'.'+IntToStr(siValue.b3)+'.'+IntToStr(siValue.b4);
end;
function Hex2IP_Variante3(const AiHex : Integer) : string;
begin
Result := IntToStr((AiHex and $ff000000) shr 24)+'.'+IntToStr((AiHex and $00ff0000) shr 16)+'.'+IntToStr((AiHex and $0000ff00) shr 8)+'.'+IntToStr(AiHex and $000000ff);
end;
Wahlweise natürlich auch mit Format zu schreiben.