QrCodeGeneratorDemo.lpr 370 B

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