Delphi XE过程或者函数传递参数的方式

在数字化工厂的系统中需要传递数组参数，返回还能使用，参考如下

一、默认方式以值方式传递参数 

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; 

三、按引用方式传递参数 

proc