¡Buenas!, hace tiempo me acerqué por aquí con una pregunta similar, cómo obtener el último trozo (de 192.168.1.25, obtener 25) ahora he creado esta función, pero no me funciona, pues me devuelve lo que sería 192. de 192.168.1.25 en vez de, como quiero, 192.168.1.
Código Delphi
[-]
function TresTrozos(Ip:string):string;
var
posicion,i:integer;
direccion:string;
begin
direccion := ip;
for i:=1 to 3 do begin
posicion := Pos('.', Direccion);
If I = 3 Then
begin
Delete(Direccion, posicion, Length(Direccion));
Result := Direccion;
end;
end;
end;
Gracias simplemente, por el tíempo empleado en leer esto.