var
Splitstr:Variant;
begin
Splitstr:=Split(udpPeerA.LocalIP, '.');
end;
其中udpPeerA.LocalIP是一串IP值

解决方案 »

  1.   

    str1,str2,str,n:=string;
    str1:=copy(udpPeerA.LocalIP,1,n);
    str2:=copy(udpPeerA.LocalIP,n+1,length(udpPeerA.LocalIP)-1);
    str:=str1+str2;
      

  2.   

    什么问题???
    delphi中没有Split函数,可以用pos()和copy()组合一下就可以了.
    如果知道IP值组成方式,可以按楼上的方法写.
      

  3.   

    procedure TForm1.Button1Click(Sender: TObject);
    var
      s: String;
    begin
      s := '192.168.0.2';
      {其中Memo1.Lines你可用一Strings替代}
      ExtractStrings(['.'], [' '], PChar(s), Memo1.Lines);
    end;
      

  4.   

    我们用的是
    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;