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

Question

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 请问该怎么写？

Answer 1

var ss:string; while ss.indexOf(strip)>-1 String类型是没有IndexOf方法的, TStrings/TStringList/...类型才有IndexOf方法

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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