Ignore:
Timestamp:
Jun 30, 2023, 3:20:46 PM (10 months ago)
Author:
chronos
Message:
  • Modified: Code cleanup.
Location:
branches/topdown
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • branches/topdown

    • Property svn:ignore

      •  

        old new  
        11lib
        22heaptrclog.trc
         3OS
        34OS.exe
        45OS.lps

  • branches/topdown/USystem.pas

    r28 r36  
    11unit USystem;
    2 
    3 {$mode delphi}{$H+}
    42
    53interface
    64
    75uses
    8   Classes, SysUtils, Forms, fgl;
     6  Classes, SysUtils, Forms, Generics.Collections;
    97
    108type
    … …  
    2220  { TApps }
    2321
    24   TApps = class(TFPGObjectList<TApp>)
     22  TApps = class(TObjectList<TApp>)
    2523    function AddNew(Name: string; FormClass: TFormTaskClass): TApp;
    2624  end;
    … …  
    4341  { TTasks }
    4442
    45   TTasks = class(TFPGObjectList<TTask>)
     43  TTasks = class(TObjectList<TTask>)
    4644  private
    4745    FOnChange: TNotifyEvent;
Note: See TracChangeset for help on using the changeset viewer.