怎么建 过程

Question

大家好,我刚刚学习DELPHI,现在想建个过程,但很惭愧看书也不能完成,希望高手指导一下,最好告诉我完整点,吾很笨,谢了

Answer 1

//一个加法过程
//传入三个参数
//Num1:加数1,Num2:加数2,Num3:结果变量
//执行结果Num3=Num1+Num2
procedure Add(const Num1,Num2:Integer;var Num3:Integer);
begin
   Num3:=Num1+Num2;
end;

Answer 2

procedure Add(const Num1,Num2:Integer;var Num3:Integer);
begin
   Num3:=Num1+Num2;
end;
在DELPHI中，Const或不标识为值传递，而用VAR或OUT来标识的是地址传递

Answer 3

program a()
var
  n1, n2, n3: integer;
//一个加法过程
//传入三个参数
//Num1:加数1,Num2:加数2,Num3:结果变量
//执行结果Num3=Num1+Num2
procedure Add(const Num1,Num2:Integer;var Num3:Integer);
begin
   Num3:=Num1+Num2;
end;
begin
  n1 = 1;
  n2 = 2;
  Add(n1, n2, n3);
  writeln(n3);
end.

Answer 4

const是引用吧。就是在过程中不能改变的常量。是地址引用!不知道对不对？

Answer 5

"const是引用吧。就是在过程中不能改变的常量。是地址引用!不知道对不对？"Const不是引用，只是传递了一个不改变的常量。不是地址引用

Answer 6

Type
  AnObject=Class(TAClass);
  FName:Integer;
  //Fields
Private
  //Private
Public
  //Declare your procedure here...
  Procedure F(X:Integer);....Procedure AnObject.F(X:Integer);
Var //...
Const //...
Begin
  //...
End;...........End.
 

Answer 7

Type
  AnObject=Class(TAClass);
  FName:Integer;
　（此处）
Private
  （此处）
Public
  （此处）
  Procedure XXX;(XXX为你为事件取的名称）
（在代码主体中加入事件代码）
Procedure aaa.XXX;　　（aaa为事件所在窗体的名称）
Var 
...
Begin
(代码）
End;引用时，直接在其它过程中调用XXX即可。

Answer 8

Type
  AnObject=Class(TAClass);
  FName:Integer;
　（此处）
Private
  （此处）
Public
  （此处）
  Procedure XXX;(XXX为你为事件取的名称）
-----建立好过程后，按CTRL+SHIFT+C---自动生成框架

Answer 9

procedure Add(const Num1,Num2:Integer;var Num3:Integer);
begin
   Num3:=Num1+Num2;
end;
//等价于...
function Add(Num1,Num2:Integer):Integer;
begin
  result:=Num1+Num2;
end;

Answer 10

procedure Add(const Num1,Num2:Integer;var Num3:Integer);
begin
   Num3:=Num1+Num2;
end;
这个过程很经典