델파이 7의 선택적 매개 변수로 동적 배열

Question

선택적 매개 변수로 동적 배열을 함수 또는 프로 시저에 전달할 수 있습니까? 그렇다면 어떻게?

procedure testp (str : string; var arr : StringArray = nil); 
begin 
    str := 'Ciao Alessio !'; 
    SetLength(arr, 2); 
    arr[0] := 'Ale'; 
    arr[1] := 'Ale'; 
end; 

을하지만 제공합니다 :

나는이 방법으로 시도 default parameter 'arr' must be by-value or const.

저는 델파이 7을 사용하고 있습니다 만, 델파이 7에서는 가능하지 않다면 델파이 나 프리 파스칼의 최신 버전이 있습니까?

Answer 1

기본 매개 변수는 const 또는 value 매개 변수에 대해서만 지정할 수 있습니다. var 매개 변수에는 지정할 수 없습니다.

호출자가 원하는 유연성을 얻으려면 과부하를 사용해야합니다.

procedure foo(var arr: StringArray); overload; 
begin 
    .... do stuff 
end; 

procedure foo; overload; 
var 
    arr: StringArray; 
begin 
    foo(arr); 
end; 

Answer 2

오류 메시지는 정확히 무엇을 말하는지와 매개 변수가 동적 배열과 아무 관련이 없습니다. 컴파일러는 참조로 전달 된 매개 변수에 대한 기본값을 제공 할 수 없기 때문에 매개 변수의 유형에 관계없이 해당 코드를 거부했을 것입니다.

선택적 참조 매개 변수를 만들려면 오버로드를 사용하여 두 가지 버전의 함수를 제공하십시오. 컴파일러는 조언으로, 값 또는 const를하여 매개 변수를받을 현재 함수를 변경 한 다음 해당 매개 변수없이 다른 함수를 선언, 다음과 같이

입니다

procedure testp (str : string); 
var 
    arr: StringArray; 
begin 
    testp(str, arr); 
end; 

, 더미 매개 변수를 선언하고 그것을 전달하는 " 진짜 "기능. 그런 다음 반환하는 값을 버립니다.

참조 값을 계산할 때 비용이 많이 드는 경우 testp의 단일 매개 변수 버전을 구현하면 두 개의 인수 버전에서 더 많은 코드가 복제됩니다.