IP:=‘192.168.1.120’
IP:=‘192.168.001.120’上面2种情况
我怎么才能取到后两位呢,考虑
IP:=‘192.168.001.120’上面2种情况
我怎么才能取到后两位呢,考虑
解决方案 »
- delphi串口Spcomm
- 在VeryCD注册的兄弟,给个注册序列号吧,谢谢
- 请问 这个语句的作用是什么????? 关于Tstrings 的使用!!!!!!!!
- 如何让SQL中的nvarchar类型在delphi的table+dbgrid中显示,如能解决给分50!
- 一个超简单的问题
- 菜鸟问题:如何获取硬盘总容量??
- memo控件读一个txt文本文件,怎样增加一个刷新时间?
- 如何用DELPHI编写一个修改“Database Desktop”数量库的字段名与字段长度?请高手帮忙
- 谁有专门输IP的EDIT控件?
- 是关于日期计算的问题,怎样才能将TDATE型转换成Integer型.给高分
- delphi调用Oracle存储过程
- 动态创建1000个label,如何释放内存
copy(ip,length(ip)-1,length(ip));//手头没有DELPHI,你可以试试
var
slist:Tstringlist;
begin
slist:=Tstringlist.Create;
try
slist.Delimiter='.';
slist.DelimitedText:=IP;
showmessage(slist.Strings[0]); {192}
showmessage(slist.Strings[1]); {168}
showmessage(slist.Strings[2]); {001}
showmessage(slist.Strings[3]); {120}
finally
slist.Free;
end;
end;
equip := copy(ip, m + 1, length(ip));
n := pos('.', equip);
equip := copy(equip, n + 1, length(equip));
p := pos('.', equip);
equip := copy(equip, p + 1, length(equip));
equip := copy(equip, length(equip) - 1, length(equip));
if length(equip) = 1 then
equip := '0' + equip;
就用这个
if length(slist.Strings[3])=1 then
slist.Strings[3]:='0'+slist.Strings[3];