Number2IP

[kcx]

Hallo,

Ich habe eine Funktion geschrieben, die eine IP Adresse in eine Zahl verwandelt:

Delphi-Quellcode:

uses StrUtils, Math;

function IP2Number(const sIP: String): Extended;
var
  iPos, iPrevPos, iNumber, i: Integer;
begin
  Result := 0;
  iPos := 0;
  iPrevPos := 0;
  for i := 1 to 4 do
  begin
    if i = 4 then
      iPos := Succ(Length(sIP))
    else
      iPos := PosEx('.', sIP, Succ(iPos));
    iNumber := StrToInt(Copy(sIP, Succ(iPrevPos), Pred(iPos - iPrevPos)));
    Result := ((iNumber Mod 256) * Power(256, (4 - i))) + Result;
    iPrevPos := iPos;
  end;
end;

Num schaffe ich es aber nicht das Gegenstück zu diesem Code zu schreiben , also

Delphi-Quellcode:

function Number2IP(const eNumber: Extended): String;
begin

end;

Es scheitert immer an der letzten Zahl.
Hoffe mir kann jemand helfen.

Danke