IP-Summe berechnen

[Sharky]

Da ich faul bin nutze ich einfach alles was mir D7 zur verfügung stellt

Delphi-Quellcode:

function IPSumme(IPAdresse : string): Integer;
var
  sl : TStringList;
  summe : Integer;
  ndx : Integer;
begin
  summe := 0;
  sl := TStringList.Create;
  try
    sl.Delimiter := '.';
    sl.DelimitedText := IPAdresse;
    for ndx := 0 to Pred (sl.Count) do
    begin
      summe := summe + StrToInt (sl.Strings[ndx]);
    end;
  finally
    sl.Free;
  end;
  result := summe;
end;