hilfe bei einem referat für die schule (java) ip2hex

[Christian Seehase]

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.