unit1.pas 282 B

1234567891011121314151617181920212223242526
  1. unit Unit1;
  2. {$mode objfpc}{$H+}
  3. interface
  4. uses
  5. BrookAction;
  6. type
  7. TIndex = class(TBrookAction)
  8. public
  9. procedure Get; override;
  10. end;
  11. implementation
  12. procedure TIndex.Get;
  13. begin
  14. Render('template.html');
  15. end;
  16. initialization
  17. TIndex.Register('/index/', True);
  18. end.