prjpolym.~dpr

来自「《Kylix程序设计》一书中附带的例程源代码」· ~DPR 代码 · 共 20 行

program PrjPolym;

uses
  QForms,
  Base in 'Base.pas' {FrmPolymorphic},
  Text in 'Text.pas' {FrmTextViewer},
  Image in 'Image.pas' {FrmImageViewer},
  Main in 'Main.pas' {FrmMain};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TFrmPolymorphic, FrmPolymorphic);
  Application.CreateForm(TFrmTextViewer, FrmTextViewer);
  Application.CreateForm(TFrmImageViewer, FrmImageViewer);
  Application.CreateForm(TFrmMain, FrmMain);
  Application.Run;
end.