main.pas

《Kylix程序设计》一书中附带的例程源代码

unit Main;

interface

uses
  SysUtils, Types, Classes, Variants, QGraphics, QControls, QForms, QDialogs,
  QStdCtrls, QExtCtrls;

type
  TFrmMain = class(TForm)
    BtnGo: TButton;
    CmbBox1: TComboBox;
    CmbBox2: TComboBox;
    CmbBox3: TComboBox;
    CmbBox4: TComboBox;
    LblInput: TLabel;
    Memo: TMemo;
    LblResult: TLabel;
    Bevel1: TBevel;
    procedure BtnGoClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmMain: TFrmMain;

implementation

uses Stack, Calcu;

{$R *.xfm}

procedure TFrmMain.BtnGoClick(Sender: TObject);
var
  I: Integer;
  str: string;
  ch: char;
  Calcu: TCalcu;
  a, b, c, d: Integer;
begin
  a := CmbBox1.ItemIndex + 1;
  b := CmbBox2.ItemIndex + 1;
  c := CmbBox3.ItemIndex + 1;
  d := CmbBox4.ItemIndex + 1;
  Calcu := TCalcu.Create( [ a, b, c, d ] );
  Calcu.Compute();
  Memo.Lines.Assign( Calcu.GetPrefixExpList() );
  Calcu.Free();
end;

end.