source: trunk/Compiler/Target.pas

unit Target;

interface

uses
  Classes, SysUtils, Producer, Executor, Generics.Collections;

type
  { TTarget }

  TTarget = class
  public
    Name: string;
    SysName: string;
    Producer: TProducer;
    Executor: TExecutor;
    Compiler: TObject; // TCompiler
    constructor Create; virtual;
    destructor Destroy; override;
  end;

  TTargetClass = class of TTarget;

  { TTargets }

  TTargets = class(TObjectList<TTarget>)
    function SearchBySysName(Name: string): TTarget;
    procedure LoadToStrings(Strings: TStrings);
  end;


implementation

{ TTarget }

constructor TTarget.Create;
begin
  inherited;
end;

destructor TTarget.Destroy;
begin
  FreeAndNil(Producer);
  FreeAndNil(Executor);
  inherited;
end;

{ TTargets }

function TTargets.SearchBySysName(Name: string): TTarget;
var
  I: Integer;
begin
  I := 0;
  while (I < Count) and (TTarget(Items[I]).SysName <> Name) do Inc(I);
  if I < Count then Result := TTarget(Items[I])
    else Result := nil;
end;

procedure TTargets.LoadToStrings(Strings: TStrings);
var
  I: Integer;
begin
  try
    Strings.BeginUpdate;
    Strings.Clear;
    for I := 0 to Count - 1 do
      Strings.AddObject(TTarget(Items[I]).Name, Items[I]);
  finally
    Strings.EndUpdate;
  end;
end;

end.