0

我得到太多实际参数的错误

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;
4

1 回答 1

15

在没有看到其余代码或不知道您使用的 Delphi 版本的情况下,您对 Delete 的调用可能没有引用System.Delete(您可能在范围内有另一个Delete方法,可能在 class 中TSub)。尝试使用以下内容,看看是否可以清除它:

System.Delete(sLine,1,iPos);
于 2012-08-22T20:09:35.460 回答