我是一名初学者，我想知道怎样添加过程

Question

先声明，然后定义例如在
private
  function FUN :String;
  procedure PRO;然后在实现部分定义就可以了
function FUN :String;
begin
end;procedure PRO;
begin
end;

Answer 1

先声明，然后定义，再调用
例如：在private中声明
procedure newwindows;
然后
implementation{$R *.dfm}后定义
procedure TForm1.newwindows;
begin
end;
再调用
如procedure TForm1.Form1Create(sender:TObject);
begin
newwindows;
end;

Answer 2

主要是声明的地方不同而有所区别
1.一般在private区（只有本单元内可用）
procedure procedure_name;
在执行区implementation
procedure TForm1.procedure_name;
begin
end;
2.一般在public区（只要引用本单元的地方都可用）在public区下的var下也一样
procedure procedure_name;
在执行区implementation
procedure TForm1.procedure_name;
begin
end;
3.在事件内,该过程只有本事件中被调用
procedure TForm1.FormClick(Sender: TObject);
 var i:integr;
 procedure procedure_name;
 begin
 end;
beginend;
//这里就介绍这几种了，有问题可以问

Answer 3

在聲明代碼上按shift+ctrl+c可以自動產的實現的部分的代碼﹐不知你用過沒有

Answer 4

反过来在有了定义后，再按SHIFT+CTRL+C也可以自动生成声明部分！