*patsch*
Man merk, das sich lange nicht mehr programmiert habe.
Aber irgendwie scheint das nicht zu funktionieren.
Delphi-Quellcode:
procedure IpStrToBytes(IPStr: string; var b0: Byte; var b1: Byte; var b2: Byte; var b3: Byte);
var
sl: TStringList;
begin
sl := TStringList.Create;
try
sl.Text := IpStr;
sl.Delimiter := '.';
b0 := StrToIntDef(sl[0], 0);
b1 := StrToIntDef(sl[1], 0);
b2 := StrToIntDef(sl[2], 0);
b3 := StrToIntDef(sl[3], 0);
finally
sl.Free;
end;
end;
Da bekomme ich bei b1 ein "Listenindex überschreitet das Maximum". Der
Ip-String ist aber korrekt: "192.168.2.102".
Was mache ich da noch falsch?