新手有关问题，关于怎么截取IP字符串的

新手问题，关于如何截取IP字符串的？
IP地址一般为“122.132.122.23”等等类似的格式，也就是常说的，AAA.BBB.CCC.DDD这种形式的，

现在我要取前三段，也就是取成 AAA.BBB.CCC 这种形式的，

不知道怎么取，我是新手。

[解决办法]
楼上的方法代码比较多，最简单的方法是：

showmessage(Copy('192.168.1.25',1,LastDelimiter('.','192.168.1.25')-1));

即可。或者：
procedure TForm1.Button1Click(Sender: TObject);
var IP:string;
begin
IP:='192.168.1.25';
showmessage(Copy(IP,1,LastDelimiter('.',IP)-1));
end;