切割字符串(高分) varSplitstr:Variant;beginSplitstr:=Split(udpPeerA.LocalIP, '.');end;其中udpPeerA.LocalIP是一串IP值 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 str1,str2,str,n:=string;str1:=copy(udpPeerA.LocalIP,1,n);str2:=copy(udpPeerA.LocalIP,n+1,length(udpPeerA.LocalIP)-1);str:=str1+str2; 什么问题???delphi中没有Split函数,可以用pos()和copy()组合一下就可以了.如果知道IP值组成方式,可以按楼上的方法写. procedure TForm1.Button1Click(Sender: TObject);var s: String;begin s := '192.168.0.2'; {其中Memo1.Lines你可用一Strings替代} ExtractStrings(['.'], [' '], PChar(s), Memo1.Lines);end; 我们用的是vars1,s2,s3,s4:stringbegin 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:=send; 100年前我就可以75你...你想怎么样?? 如何枚举一个ACtiveX控件里面的所有的DC? 控件运行时有什么好处? 如何得到dhcp上所有的网卡mac 关于 循环 求救!!在WIN2000开发得程序在WIN98下为什么不正常 关于RealAudio控件问题 如何用代码切换数字键、大写锁定键及ScrollLock键? 开发进销存:单据录入,DELPHI用什么解决比较好?不知道速达3000XP中的入库单单据录入是用什么做的? 对一个DELPHI初学者,哪几本书是必看的?帮忙介绍一下哦:) 提供用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;