一个正则过滤的代码，帮我看看那里错了
procedure TForm1.Button1Click(Sender: TObject);function GetStr(AURL: string): string; overload;
var
mybody,mytitle:String;
begin
mybody:='北京市中关村第一中学！';
mytitle:= GetStr(mybody,'北京市','！');
Edit1.Text:=mytitle;
end;
错误信息：
Unit1.pas(33): Too many actual parameters
Unit1.pas(37): ';' expected but '.' found
Unit1.pas(39): Declaration expected but end of file found
Project1.dpr(5): Could not compile used unit 'Unit1.pas'
function GetStr(AURL: string): string; overload;这个方法被你重载了，在方法，你只输入了一个参数 在调用的时候 给了三个参数
页:
[1]