source: branches/dcomp/CmdLine/Compiler/UTarget.pas

unit UTarget;

interface

type
  TTarget = class
    Name: string;
    procedure Produce; virtual;
    constructor Create; virtual;
  end;
  
  TTargetClass = class of TTarget;


implementation

constructor TTarget.Create;
begin

end;

procedure TTarget.Produce;
begin
  WriteLn('Produce');
end;

end.