source: branches/virtcpu varint/Forms/UFormAssembler.pas

unit UFormAssembler;

{$mode delphi}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, UAssembler;

type

  { TFormAssembler }

  TFormAssembler = class(TForm)
    ButtonCompile: TButton;
    ButtonLoadFromFile: TButton;
    ButtonSaveToFile: TButton;
    MemoMessages: TMemo;
    MemoSource: TMemo;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    procedure ButtonCompileClick(Sender: TObject);
    procedure ButtonLoadFromFileClick(Sender: TObject);
    procedure ButtonSaveToFileClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    procedure DoCompileMessage(Text: string);
  public
    Assembler: TAssembler;
  end;

var
  FormAssembler: TFormAssembler;

implementation

{$R *.lfm}

{ TFormAssembler }

procedure TFormAssembler.ButtonLoadFromFileClick(Sender: TObject);
begin
  if OpenDialog1.Execute then
    MemoSource.Lines.LoadFromFile(OpenDialog1.FileName);
end;

procedure TFormAssembler.ButtonCompileClick(Sender: TObject);
begin
  Assembler.Source.Assign(MemoSource.Lines);
  Assembler.Compile;
end;

procedure TFormAssembler.ButtonSaveToFileClick(Sender: TObject);
begin
  if SaveDialog1.Execute then
    MemoSource.Lines.SaveToFile(SaveDialog1.FileName);
end;

procedure TFormAssembler.FormCreate(Sender: TObject);
begin
  Assembler := TAssembler.Create;
  Assembler.OnError := DoCompileMessage;
end;

procedure TFormAssembler.FormDestroy(Sender: TObject);
begin
  FreeAndNil(Assembler);
end;

procedure TFormAssembler.DoCompileMessage(Text: string);
begin
  MemoMessages.Lines.Add(Text);
end;

end.