只是把 for t := 1 to 100000 do 改为 for t := 1 to 1 do for t := 1 to 1 do begin npos:= 1
while (npos< Length(ps)-4) do begin npos:= PosEx('-', ps, npos)
Inc(npos)
sWatch:= Copy(ps, npos, Length(ps))
// ShowMessage(sWatch)
// mmo1.Lines.Add(sWatch)
end
end
其它的没修改什么或加入什么东西啊,现在运行又显示以下错误: 不是有效的 Win32 应用程序。