Delphi 函式和過程的引數問題

function myf1(x: integer): integer;

begin
inc(x);
result := x;
end;
function myf2(var x: integer): integer;
begin
inc(x);
result := x;
end;
function myf3(out x: integer): integer;
begin
inc(x);
result := x;
end;
function myf4(const x: integer): integer;
begin
//inc(x); 
result := x;
end;
type
intarray = array[0..9] of integer; 
function myfun(arr: intarray): integer;
vari: integer;
begin
result := 0;
for i in arr do result := result + i;
end;

Delphi函式和過程

過程無返回值，函式有返回值。procedure myproc m,n integer o string p single 2.5 q string delphi 如上例所示，過程宣告和定義中，多個引數是用分號隔開的，但在呼叫時是用逗號隔開的 eg myproc 3,4,me 3.14 上例中省略了最...

Delphi過程函式傳遞引數的幾種方式

在delphi過程 函式中傳遞引數幾個修飾符為const var out。另一種不加修飾符的為預設按值傳遞引數。一 預設方式以值方式傳遞引數 procedure tform1.procnormal value string begin orignum value me lblreturn.capti...

Delphi過程函式傳遞引數的幾種方式

from 在delphi過程 函式中傳遞引數幾個修飾符為const var out。另一種不加修飾符的為預設按值傳遞引數。一 預設方式以值方式傳遞引數 procedure tform1.procnormal value string begin orignum value me lblreturn....