在delphi過程、函式中傳遞引數幾個修飾符為const、var、out。
另一種不加修飾符的為預設按值傳遞引數。
一、預設方式以值方式傳遞引數procedure tform1.procnormal(value: string
); begin
orignum:=value+'me'
; lblreturn.caption:=orignum;//
orignum為'hello me'
lblorig.caption:=value;//
value為'hello'
end;
呼叫：
orignum:='
hello';
procnormal(orignum);
二、以const方式傳遞引數，這個引數在呼叫過程中不能改變，並且這種方式會被編譯器優化，一般建議盡可能地使用這種方式。
procedure tform1.procconst(const value: string
); begin
orignum:=value+'me'
; lblreturn.caption:=orignum;//
為'hello me『
lblorig.caption:=value;//
為'hello me'
end;
三、按引用方式傳遞引數
procedure tform1.procref(var value: string
); begin
orignum:=value+'me'
; lblreturn.caption:=orignum;//
為'hello me『
lblorig.caption:=value;//
為'hello me'
end;
四、按out方式傳遞引數，這個方式傳遞引數時，引數可以不被初始化，即使有值也被忽視，它一般用於輸出,它可以實現在乙個過程中返回多個值,我們通常在分布式物件模型，如com中使用它。
procedure tform1.procout(out value: string
); begin
orignum:=value+'me'
; lblreturn.caption:=orignum;//
為'me'
lblorig.caption:=value;//
為'me'
end;
五、無型別引數，這是一種較為特殊的方法，引數的型別不確定，只能用const、var、out修飾，不能用於值方式傳遞引數，具體使用示例如下：
procedure tform1.procuntype(const
value);
begin
orignum:=string(value)+'me'
; lblreturn.caption:=orignum;//
為'hello me'
lblorig.caption:=string(value);//
為'hello me'
end;
六、預設引數，即如果此引數在呼叫時未提供時，將使用預設值。
procedure tform1.procdefault(const value, const defaultvalue:string='
123'
); begin
orignum:=value+'
me'+defaultvalue;
lblreturn.caption:=orignum;//
為'hello me 123'
lblorig.caption:=value;//
為'hello me 123'
end;
七、開放陣列引數，即引數陣列的元素個數不確定。
procedure tform1.procarray(const value: array
ofstring
); var
i:integer;
begin
for i:=low(value) to high(value) do
orignum:=orignum+value[i];//
呼叫後為'hello abc dbd'
lblreturn.caption:=orignum;
end;
呼叫：
orignum:='
hello';
procarray([
'abc
','dbd
']);
八、無型別開放陣列引數，即型別及元素個數皆不確定。在win32平台中，這個引數的型別實際為array
oftvarrec,其使用示例如下:
procedure tform1.procarrayconst(const value: array
ofconst
); var
i:integer;
begin
for i:=low(value) to high(value) do
with value[i] do
case vtype of
vtansistring: orignum:= orignum+string(vansistring);
vtinteger: orignum:=orignum+inttostr(vinteger);
vtboolean: orignum := orignum +booltostr(vboolean);
vtchar: orignum := orignum +vchar;
vtextended: orignum := orignum +floattostr(vextended^);
vtstring: orignum := orignum +vstring^;
vtpchar: orignum := orignum +vpchar;
vtobject: orignum := orignum +vobject.classname;
vtclass: orignum := orignum +vclass.classname;
vtcurrency: orignum := orignum +currtostr(vcurrency^);
vtvariant: orignum := orignum + string
(vvariant^);
vtint64: orignum := orignum +inttostr(vint64^);
end;
lblreturn.caption:=orignum;//
呼叫後為'hello abc 3'
end;
呼叫：
orignum:='
hello';
procarrayconst([
'abc
',3]);
以上就是常見幾種傳遞引數的方式。
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....
Delphi過程函式傳遞引數的幾種方式
在delphi過程 函式中傳遞引數幾個修飾符為const var out。另一種不加修飾符的為預設按值傳遞引數。一 預設方式以值方式傳遞引數 procedure tform1.procnormal value string begin orignum value me lblreturn.capti...