Delphi: SetLength() dla argumentu typu "array of TObject"

Question

Próbuję zmienić rozmiar tablicy określonej klasy przekazanej jako argument, np.

procedure Resize(MyArray: Array of TObject); 
begin 
    SetLength(MyArray, 100); 
end; 

Powoduje to jednak błąd "Typy niezgodne z E2008". Czy to prawda, że ​​nie możesz tego zrobić (widziałem plotki, ale nie mam oficjalnej dokumentacji) czy robię coś nie tak?

Answer 1

Użytkownik nie zdefiniował dokładnie tego typu. Tak więc kompilator ma problemy z ich dopasowaniem. Jeśli zdefiniować typ takich jak:

type 
    TObjectArray = array of TObject; 

Nie ma co do tego wątpliwości i (dzięki Mghie) należy używać parametru var ponieważ resising może spowodować zmianę wskaźnika.

procedure Resize(var MyArray: TObjectArray); 
begin 
    SetLength(MyArray, 100); 
end; 

Answer 2

Jesteś mieszanie otwarte tablice (parametr Resize) i dynamiczne tablice (co setlength oczekuje). Aby uzyskać wyjaśnienie, patrz here - szczególnie część zatytułowana "Confusion".