program AssignTests;

type

   TSubObjectType = (sotNone,sotString,sotInteger);

   TMySubObject = class(TObject)
      private
         FSubObjectType: TSubObjectType=sotInteger;
      public
         property SubObjectType: TSubObjectType read FSubObjectType
                                                write FSubObjectType;
      end;

   TMySubObjectArray = array of TMySubObject;

   TMyObject = class(TObject)
      private
         FName: String;
         FCount: Integer;
         FSubObjects: TMySubObjectArray;
         procedure SetName(const Value: String);
         function GetSubObject(Index: Integer): TMySubObject;
      public
         constructor Create(ACount: Integer); virtual;
         property Name: String read FName write SetName;
         property Count: Integer read FCount;
         property SubObjects[Index: Integer]: TMySubObject read GetSubObject; default;
      end;

constructor TMyObject.Create(ACount: Integer);
var
   I: Integer;
begin
   inherited Create;
   FCount:=ACount;
   SetLength(FSubObjects,FCount);
   for I:=0 to FCount-1 do
      FSubObjects[I]:=TMySubObject.Create;
end;

procedure TMyObject.SetName(const Value: String);
begin
   if (Value <> FName) then
      FName:=Value;
end;

function TMyObject.GetSubObject(Index: Integer): TMySubObject;
begin
   Result:=FSubObjects[Index];
end;

var
   TempObject: TMyObject;
   TempValue1: Integer;
   TempValue2: Integer;
   I: Integer;
   TempResults: TMySubObjectArray;
   TempCount: Integer;
begin
   TempObject:=TMyObject.Create(1000000);
   try
      TempObject.Name:='Assignment Tests';
      TempValue1:=Random(0,999999);
      TempValue2:=Random(0,999999);
      TempObject[TempValue1].SubObjectType:=sotString;
      TempObject[TempValue2].SubObjectType:=sotNone;
      SetLength(TempResults,2);
      TempCount:=0;
      for I:=0 to 999999 do
         begin
         if (TempObject[I].SubObjectType <> sotInteger) then
            begin
            TempResults[TempCount]:=TempObject[I];
            Inc(TempCount);
            end;
         end;
   finally
      TempObject.Free;
   end;
end.

program ForArray;

function UserIntToStr(Value: Integer): String;
begin
   Result:=IntToStr(Value);
end;

var
   I: Integer;
   TempStrings: array of String;
begin
   SetLength(TempStrings,1000000);
   for I:=0 to 999999 do
      TempStrings[I]:=UserIntToStr(I);
end.