/jcl/examples/windows/debug/tools/TlbToMap.dpr

https://github.com/the-Arioch/jcl · Pascal · 43 lines · 10 code · 4 blank · 29 comment · 0 complexity · efab5e13f7376b499529be2933d24bf5 MD5 · raw file

  1. {**************************************************************************************************}
  2. { }
  3. { Project JEDI Code Library (JCL) }
  4. { }
  5. { The contents of this file are subject to the Mozilla Public License Version 1.1 (the "License"); }
  6. { you may not use this file except in compliance with the License. You may obtain a copy of the }
  7. { License at http://www.mozilla.org/MPL/ }
  8. { }
  9. { Software distributed under the License is distributed on an "AS IS" basis, WITHOUT WARRANTY OF }
  10. { ANY KIND, either express or implied. See the License for the specific language governing rights }
  11. { and limitations under the License. }
  12. { }
  13. { The Original Code is MapToJdbg.dpr. }
  14. { }
  15. { The Initial Developer of the Original Code is documented in the accompanying }
  16. { help file JCL.chm. Portions created by these individuals are Copyright (C) of these individuals. }
  17. { }
  18. {**************************************************************************************************}
  19. { }
  20. { Command line tool for converting JCL debug data created from TLB files }
  21. { }
  22. {**************************************************************************************************}
  23. { }
  24. { Last modified: $Date:: $ }
  25. { Revision: $Rev:: $ }
  26. { Author: $Author:: $ }
  27. { }
  28. {**************************************************************************************************}
  29. program TlbToMap;
  30. uses
  31. Forms,
  32. TlbToMapMain in 'TlbToMapMain.pas' {MainForm};
  33. {$R *.RES}
  34. begin
  35. Application.Initialize;
  36. Application.Title := 'TLB to MAP';
  37. Application.CreateForm(TMainForm, MainForm);
  38. Application.Run;
  39. end.