1、先编写如下代码。
type
TDownLoad=class
constructor Create;
destructor Destroy;override;
procedure FileDownload(sURL,sFile:string);
end;
2、将光标放在constructor 附近。
3、快捷键CTRL+SHIFT+C按下。
4、自动生成如下。
{ TDownLoad }
constructor TDownLoad.Create;
begin
end;
destructor TDownLoad.Destroy;
begin
inherited;
end;
procedure TDownLoad.FileDownload(sURL, sFile: string);
begin
end;
5、其他快捷方式。
Ctrl+Shift+↑光标在函数体内时,将光标快速移至当前函数声明处。
Ctrl+Shift+↓光标在函数声明行时,将光标快速移至函数定义处。
Ctrl+Shift+C声明一个过程或函数后,直接生成过程或函数的名称、begin、end;