SetLength fur Property feld

[cruiser]

Ich würde eine Setlength Methode in die Klasse einbauen meinetwegen

Delphi-Quellcode:

  property AsteroidCount: Integer read GetAsCount write SetAsCount;

  {...}

  procedure <class>.SetAsCount(const Value: Integer);
  begin
    SetLength(fAsteroids, Value);
  end;

  function <class>.GetAsCount: Integer;
  begin
    Result := Length(fAsteroids);
  end;