我得到了太多实际参数的错误
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;
答案 0 :(得分:15)
在没有看到其余代码或知道您正在使用的Delphi版本的情况下,您对Delete的调用可能没有引用System.Delete
(您可能在范围内有另一个Delete
方法,可能在班级TSub
)。尝试使用以下代码,看看是否清除它:
System.Delete(sLine,1,iPos);