IP-Summe berechnen

[FastJack2]

Hy ... also ich bin der Meinung, der Fehler liegt bei pos();

aus der OH:

Die Funktion gibt den Indexwert des ersten Zeichens innerhalb des angegebenen Teil-Strings zurück, der in einem String vorkommt

hab deine funktion mal nen bissel abgewandelt ... sollte jetzt funktionieren :)

Code:

function IPSumme(IPAddy: string): string;
var
  IPs: array[0..2] of byte;
  IPZaehler, cnt: Integer;
  tmp: String;
begin
  result := '';
  try
    IPs[0] := 0;
    IPs[1] := 0;
    IPs[2] := 0;
    IPzaehler := 0;
    tmp := '';
    for cnt := 1 to Length(IPAddy) + 1 do
    begin
      if IPAddy[cnt] = '.' then
      begin
        IPs[IPZaehler] := strtoint(tmp);
        tmp := '';
        inc(IPZaehler);
      end
      else
      begin
        tmp := tmp + IPAddy[cnt];
      end;
    end;
    result := inttostr(IPs[0] + IPs[1] + IPs[2] + strtoint(tmp));
  except
    result := '';
  end;
end;

greetz
-FastJack2