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