QrCodeGeneratorDemo.lpr 379 B

1234567891011121314151617181920212223242526
  1. program QrCodeGeneratorDemo;
  2. {$mode objfpc}{$H+}
  3. uses {$IFDEF UNIX} {$IFDEF UseCThreads}
  4. cthreads, {$ENDIF} {$ENDIF}
  5. SysUtils,
  6. consoletestrunner,
  7. uQrCodeGeneratorDemo;
  8. begin
  9. try
  10. { TODO -oUser -cConsole Main : Insert code here }
  11. TQrCodeGeneratorDemo.RunAllDemos;
  12. except
  13. on E: Exception do
  14. Writeln(E.ClassName, ': ', E.Message);
  15. end;
  16. end.