我需要分割一个IP,如何用.分割?好像是POS,具体怎么用啊?
解决方案 »
- [求助]dll文件编写
- 一个简单sql语句
- 用FastReport制作报表,如果想控制MEMO的内容和表格线的长短,应在哪里写代码?
- 自己写的Socks5代理的源码,还有些问题没有解决,请大家指教!(3)
- 求一段SQL SERVER数据库备份与恢复的代码
- 没肚量的人(我)又来了,哈哈。看看D版大佬也玩不起了。
- 怎样在数据库表中选中一个记录然后在进行判断啊?
- 一个网页中的数据库的问题!
- 求救:有经验的者快近来吧?
- 这里也有你要去学的问题,不看是个损失呀
- 求助:我设置 窗体的 windowstate 为 wsMaximinzed ,运行后,需要单击中那个不起作用!谢谢!
- 一个问题:MDI 中的子窗口关闭时会触发什么事件?
var
str: string;
sl: TStringList;
i: integer;
begin
str := '111.222.111.222';
str := StringReplace(str, '.', #13#10, [rfReplaceAll]);
sl := TStringList.Create;
sl.Text := str;
for i:=0 to sl.Count-1 do
ShowMessage(sl[i]);
Fre
var
str: string;
sl: TStringList;
i: integer;
begin
str := '111,222,111,222';
sl := TStringList.Create;
ExtractStrings([','], [], PChar(str), sl);
for i:=0 to sl.Count-1 do
ShowMessage(sl[i]);
FreeAndNil(sl);
end;
var ip,s:string;
i:integer;
begin
ip:='123.456.789.123';
s:='';
for i:=1 to length(ip) do
if ip[i]<>'.' then s:=s+ip[i]
else
begin
ShowMessage(s);
s:='';
end;
ShowMessage(s);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
str: string;
sl: TStringList;
i: integer;
function Split(s: string; t: char): TStringList;
begin
Result := TStringList.Create;
while Pos(t, s)>0 do
begin
Result.Add(Copy(s, 1, Pos(t, s)-1));
Delete(s, 1, Pos(t, s));
end;
if Length(s)>0 then Result.Add(s);
end;
begin
str := '111.222.111.222';
sl := TStringList.Create;
sl := Split(str, '.');
for i:=0 to sl.Count-1 do
ShowMessage(sl[i]);
FreeAndNil(sl);
end;