我得到太多实际参数的错误
Procedure TSub.ReadUsers;
var
iPos , i : integer;
begin
ReadLine;
iPos := 0;
for i := 1 to Counter do
iPos := pos('#',sLine);
arrUsers[i] := copy(sLine, 1, ipos-1);
delete(sLine,1,iPos);//error in this line
iPos := pos('#',sLine);
end;
Run Code Online (Sandbox Code Playgroud)
Saj*_*ray 15
如果没有看到其余代码或知道您正在使用的Delphi版本,您对Delete的调用可能不会引用System.Delete(您可能Delete在范围内有另一种方法,可能在类中TSub).尝试使用以下代码,看看是否清除它:
System.Delete(sLine,1,iPos);
Run Code Online (Sandbox Code Playgroud)
| 归档时间: |
|
| 查看次数: |
1192 次 |
| 最近记录: |