var
Splitstr:Variant;
begin
Splitstr:=Split(udpPeerA.LocalIP, '.');
end;
其中udpPeerA.LocalIP是一串IP值
Splitstr:Variant;
begin
Splitstr:=Split(udpPeerA.LocalIP, '.');
end;
其中udpPeerA.LocalIP是一串IP值
解决方案 »
- 如何将全局鼠标钩子获得的鼠标坐标转换为某个窗体的内部坐标
- 一万多条的记录应该如何插入?
- 弟弟病了,还未确诊是否是肺结核,可是非常担心,祝他早日康复,接受大家的祝福,谢谢!--2
- DELPHI的编译问题
- 请问delphi主要用什么工具来打包编译好的程序?
- 单击或双击DBGridEH控件的tilte出错
- 郁闷。。。简单程序出现这种问题!!
- 实现DBGrid中的数据拷贝、粘贴、剪切的功能。(要支持多行、多列的)。
- 调查题:在上百个表的mis里,最常用的健表工具是什么? pd or project or design2000?//牛虻(需要下载,先作调查)
- 请问有关于酒店管理的软件吗,,我只要服务台部分,给一定报酬。急要——谢谢
- 提供用mcisendstring作的播放器.
- 关于日期问题。。。不难(抱歉,分用完了)
str1:=copy(udpPeerA.LocalIP,1,n);
str2:=copy(udpPeerA.LocalIP,n+1,length(udpPeerA.LocalIP)-1);
str:=str1+str2;
delphi中没有Split函数,可以用pos()和copy()组合一下就可以了.
如果知道IP值组成方式,可以按楼上的方法写.
var
s: String;
begin
s := '192.168.0.2';
{其中Memo1.Lines你可用一Strings替代}
ExtractStrings(['.'], [' '], PChar(s), Memo1.Lines);
end;
var
s1,s2,s3,s4:string
begin
s1:=copy(s,1,pos('.',s)-1);
delete(s,1,pos('.',s));
s2:=copy(s,1,pos('.',s)-1);
delete(s,1,pos('.',s));
s3:=copy(s,1,pos('.',s)-1);
delete(s,1,pos('.',s));
s4:=s
end;