今天一同事問我為什麼有些過程函數裡面有Var而有些沒有，不解，遂到網上百度，得解。快哉，快哉。
在Delphi過程、函數中傳遞參數幾個修飾符為Const、Var、Out。另一種不加修飾符的為默認按值傳遞參數。 以下是我百度出來的八種Delphi過程函數的傳遞方式。
一、默認方式以值方式傳遞參數
[delphi] procedure TForm1.ProcNormal(Value: string);
begin
OrigNum:=Value+' Me';
lblReturn.Caption:=OrigNum;//OrigNum為'Hello Me'
lblOrig.Caption:=Value;//Value為'Hello'
end;
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方式傳遞參數，這個參數在調用過程中不能改變，並且這種方式會被編譯器優化，一般建議盡可能地使用這種方式。
[delphi] procedure TForm1.ProcConst(const Value: string);
begin
OrigNum:=Value+' Me';
lblReturn.Caption:=OrigNum;//為'Hello Me‘
lblOrig.Caption:=Value;//為'Hello Me'
end;
procedure TForm1.ProcConst(const Value: string);
begin
OrigNum:=Value+' Me';
lblReturn.Caption:=OrigNum;//為'Hello Me‘
lblOrig.Caption:=Value;//為'Hello Me'
end;
三、按引用方式傳遞參數
[delphi] procedure TForm1.ProcRef(var 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中使用它。
[delphi] procedure TForm1.ProcOut(out Value: string);
begin
OrigNum:=Value+' Me';
lblReturn.Caption:=OrigNum;//為'Me'
lblOrig.Caption:=Value;//為'Me'
end;
procedure TForm1.ProcOut(out Value: string);
begin
OrigNum:=Value+' Me';
lblReturn.Caption:=OrigNum;//為'Me'
lblOrig.Caption:=Value;//為'Me'
end;
五、無類型參數，這是一種較為特殊的方法，參數的類型不確定，只能用Const、Var、Out修飾，不能用於值方式傳遞參數，具體使用示例如下：
[delphi] procedure TForm1.ProcUntype(const Value);
begin
OrigNum:=string(Value)+' Me';
lblReturn.Caption:=OrigNum;//為'Hello Me'
lblOrig.Caption:=string(Value);//為'Hello Me'
end;
procedure TForm1.ProcUntype(const Value);
begin
OrigNum:=string(Value)+' Me';
lblReturn.Caption:=OrigNum;//為'Hello Me'
lblOrig.Caption:=string(Value);//為'Hello Me'
end;六、默認參數，即如果此參數在調用時未提供時，將使用默認值。
[delphi] 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.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;
七、開放數組參數，即參數數組的元素個數不確定。
[delphi] procedure TForm1.ProcArray(const Value: array of string);
var
i:Integer;
begin
for i:=Low(Value) to High(Value) do
OrigNum:=OrigNum+Value[i];//調用後為'Hello abc dbd'
lblReturn.Caption:=OrigNum;
end;
procedure TForm1.ProcArray(const Value: array of string);
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 of TVarRec,其使用示例如下:
[delphi] procedure TForm1.ProcArrayConst(const Value: array of const);
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;
procedure TForm1.ProcArrayConst(const Value: array of const);
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]);
以上就是常見幾種傳遞參數的方式。
