IPs aufteilen

[Waldteufel]

Hi.

So müsste es gehen: (ungetestet)

Delphi-Quellcode:

function BinStrToInt(str : string) : integer;
var
  i : integer;
begin
  result := 0;
  for i := 1 to Length(str) do
    result := result + ( (Ord(str[i]) - Ord('0')) * Power(2, Length(str) - i) );
end;

Konvertiere die Zahlen einfach mit BinStrToInt(i) statt StrToInt(i)