简单的字符串问题----在线等

[helloha2013]

var strip:string;
var ss:string;

Randomize;
ss:='56.27.25.63|||57.28.63.55|||21.75.122.533|||';

while ss.indexOf(strip)>-1 do ////////////////////这里报错
begin
strip=Format('10.%d.%d.%d',
[Random(255), Random(255), Random(254) + 1])
end

请问该怎么写？

[jadeluo]

var ss:string;

while ss.indexOf(strip)>-1

String类型是没有IndexOf方法的, TStrings/TStringList/...类型才有IndexOf方法

[bdmh]

字符串用Pos判断某个字符是否存在

[helloha2013]

如何改啊？大侠们。

[xyxhz]

你想干什么,分割字符串?
这个不行换一个方式试试啊

[加菲兔子]

while pos(strip, ss) > 0 do
begin
strip := ....;
end;

[helloha2013]

[Quote=引用 5 楼 chenguoshuang 的回复:]
while pos(strip, ss) > 0 do
begin
strip := ....;
end;
[/Quote]

pos判断有没有字符串，还是仅能判断有无某个字符？

[mathsfan]

我晕，LZ用C#的吧？？？
delphi里一般是Copy+Pos组合去搞。

[helloha2013]

i see

给分了。