Obtener tres primeras partes de una ip

[cheewe]

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

[yusnerqui]

Este tambien funciona:

Código Delphi [-]
function TForm1.Trozo(IP: string): String;
var
i : Byte;
Aux : String;
begin
for i := length(IP) downto 1 do
Aux := Aux + IP[i];
i := pos('.', Aux);
Result := copy(IP,1,length(IP)-i);
end;

[__marcsc]

Un poco más corto, de nuevo con la función LastDelimiter:

Código Delphi [-]
function TresTrozos(IP: String): String;
begin
  Result:= Copy(IP,1,LastDelimiter('.',IP)-1));
end;

Saludos!