|
function TresTrozos(Ip:string):string;
var
posicion,i:integer;
direccion:string;
begin
direccion := ip;
for i:=1 to 3 do begin
posicion := Pos('.', Direccion); <- El problema esta aqui. Encuentra siempre la primera ocurrencia de '.', con lo que al final desecha todo menos la primera parte de la direccion
If I = 3 Then
begin
Delete(Direccion, posicion, Length(Direccion));
Result := Direccion;
end;
end;
end;
Prueba con esto
repeat
siguiente:=Pos('.',Direccion);
if siguiente<>0 then
begin
Trozo := copy(parametros,1,siguiente-1);
Direccion := Copy(Direccion, Siguiente +1, Length(Direccion) -Siguiente);
end
else Trozo := copy(Direccion,1,length(Direccion));
Until (siguiente=0);
Result := Trozo;
En cada una de las iteraciones del bucle tendras las partes de la IP. Puedes hacer con ellas lo que necesites.
Un saludo
|