Array of TObject

[supermew]

Hi,

weiß jemand wieso ich hierbei immer einen Fehler (No default property availabla) bekomme und wie ich in lösen kann?

Code: Alles auswählen

procedure ExtendedArray.DeleteArrayElement(var AArray: TObject; const AIndex: integer);
begin
  Move(AArray[AIndex + 1], AArray[AIndex], SizeOf(AArray[0]) *
    (Length(AArray) - AIndex - 1));
  SetLength(AArray, Length(AArray) - 1);
end;

[theo]

Weil du AArray als TObject und nicht als Array deklarierst?

Was willst du erreichen?
Es gibt wahrscheinlich eine fertig Klasse dafür: http://www.freepascal.org/docs-html/fcl ... tlist.html