text.pas

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

unit Text;

interface

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

type
  TFrmTextViewer = class(TFrmPolymorphic)
    Memo: TMemo;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure OpenFile(); override;
  end;

var
  FrmTextViewer: TFrmTextViewer;

implementation

{$R *.xfm}

{ TFrmTextViewer }

procedure TFrmTextViewer.OpenFile;
begin
  if DlgOpen.Execute() then
  begin
    Memo.Lines.LoadFromFile( DlgOpen.FileName );
  end;
end;

end.