恆就地陣列中的德爾福

Question

串和記錄的是這樣的事情可能與德爾福？ （帶有動態數組的字符串和記錄）

type 
    TStringArray = array of String; 
    TRecArray = array of TMyRecord; 

procedure DoSomethingWithStrings(Strings : TStringArray); 
procedure DoSomethingWithRecords(Records : TRecArray); 
function BuildRecord(const Value : String) : TMyRecord; 

DoSomethingWithStrings(['hello', 'world']); 
DoSomethingWithRecords([BuildRecord('hello'), BuildRecord('world')]); 

我知道它不能像那樣編譯。只是想問一下是否有一個竅門可以得到類似的東西。

Answer 1

如果你沒有改變你的DoSomethingWith*程序內的數組的長度，我建議使用開放數組，而不是動態的，例如像這樣：

procedure DoSomethingWithStrings(const Strings: array of string); 
var 
    i: Integer; 
begin 
    for i := Low(Strings) to High(Strings) do 
    Writeln(Strings[i]); 
end; 

procedure DoSomethingWithRecords(const Records: array of TMyRecord); 
var 
    i: Integer; 
begin 
    for i := Low(Records) to High(Records) do 
    Writeln(Records[i].s); 
end; 

procedure Test; 
begin 
    DoSomethingWithStrings(['hello', 'world']); 
    DoSomethingWithRecords([BuildRecord('hello'), BuildRecord('world')]); 
end; 

請注意，在參數列表中的array of string - 不TStringArray！請參閱文章"Open array parameters and array of const"，特別是關於「混亂」的部分，以獲取更多信息。