source: branches/Void/UOutputGenerator.pas

unit UOutputGenerator;

{$mode Delphi}{$H+}

interface

uses
  Classes, SysUtils, UModel, StrUtils;

type
  TOutputGenerator = class
  private
  public
    Model: TModel;
    IndentCount: Integer;
    Output: TStringList;
    function Indent: string;
    procedure Generate(Model: TModel); virtual;
    constructor Create;
    destructor Destroy; override;
  end;

  implementation

{ TOutputGenerator }

function TOutputGenerator.Indent: string;
begin
  Result := DupeString('  ', IndentCount);
end;

procedure TOutputGenerator.Generate(Model: TModel);
begin
  Self.Model := Model;
end;

constructor TOutputGenerator.Create;
begin
  Output := TStringList.Create;
end;

destructor TOutputGenerator.Destroy;
begin
  Output.Destroy;
  inherited Destroy;
end;

end.