procedure eraseSubstr(const pos:vector; var text:string; const pattern:string);
var
len, iter, end_, endPos:Integer;
t:string;
begin
t:=text;
len:=Length(pattern);
if (Length(pos) < 2) then
begin
Delete(t, pos[0], length);
end;
end;
错误发生在函数上Delete
。
错误 -[dcc32 Error] Functions.pas(58): E2029 '(' expected but ')' found
有没有人经历过这个?请帮忙。
你写
Length
- 这是一个函数,System.Length
当然,它需要一个(
带参数的开头,然后你推它)
此外,长度是编译器内核的一个函数;它有一个特殊的属性。