Borland Pascal

 
Borland Pascal
лучшие модули
Last changed: March 28, 2002

Это подборка наиболее удачных моих модулей, использовавшихся во многих моих разработках (в том числе - коммерческих). Большинство модулей содержит описание и простой пример использования (в конце файла), если же что-то не получится - пишите, объясню.

Ссылки на загрузку модулей - внизу страницы

  • heaperor.zip -- заставляет heap manager при нехватке памяти возвращать nil вместо "Run time error". Используется в большинстве остальных модулей.
  • mouse.zip -- реализует паскалевский интерфейс для мышки
  • fonts.zip -- мне надоели борландовские графические шрифты, этот модуль рисует шрифт размера 8х14, очень похожий на используемый в текстовом режиме (честно говоря, оттуда и взятый). Различные режимы отображения. Поддерживаются только видеорежимы 640*XXX*16 цветов, кто сделает больше - пришлите мне исходник :-)
  • graftxt.zip -- загружает русский шрифт 8х8 для вывода в графическом режиме командой write
  • mygraf.zip -- модуль для разрисовки графиков в окошке с рамкой (гистограмма, линейные графики с автомасштабом, маркировка выбранных точек, оси, ...); не очень очевидный интерфейс, но мне нравится своей универсальностью
  • fourier.zip -- несколько вариантов Фурье-преобразования: обычное, быстрое, оптимизированное под сопроцессор
  • knobs.zip -- "нажимающиеся" кнопки
  • crtgraf.zip -- пример необычного программирования знакогенератора - "графическое" окошко в текстовом режиме. А вы знали, что на экране одновременно может быть 512 символов?
  • read_cfg.zip -- работа с конфигурационными файлами (типа .INI)
  • dateproc.zip -- реализует тип TDateTime и процедуры для работы с ним (как в Delphi)
  • lists.zip -- еще один "дельфеобразный" объект: TList, список
  • mydirr.zip -- определяет каталог запуска программы
  • mystring.zip -- пара функций работы со строками
  • logfile.zip -- несколько процедур, гарантирующих сохранение информации в файле протокола при любых сбоях в программе (вам когда-нибудь приходилось отлаживать программу вылетевшую по run-time в другом городе?)
  • read_ico.zip -- чтение и отображение на экране 16-цветных ICO файлов Windows
  • altprint.zip -- библиотека поддержки принтера: системы команд Epson8, Epson24, PCL, загрузка русского шрифта в принтер, распечатка участков экрана, поддержка PRINT.COM. Управление - через внешний файл конфигурации
  • gfish.zip -- специальный модуль для ленивых студентов: рисует разные графики, все что надо - подключить его, сформировать массив данных и вызвать нужную функция (одну!), все остальное модуль сделает сам. Да, и не забыть положить egavga.bgi в текущий каталог
  • str_ptr.zip -- преобразование указателя в строку и обратно, у меня использовалось при передаче данных из вызывающей программы в вызываемую: через параметры командной строки передавался указатель.
  • stars.zip -- что-то вроде скрин-сейвера: рисует звездочки и кометы на экране, пока не нажата клавиша.
  • menuline.zip -- объект организует двухуровневое меню
  • plotter.zip -- простейший модуль для управления плоттером (язык HPGL).
  • editors.zip -- различные редакторы: строковый, мемо (набор строк), выбор из N вариантов, можно использовать в графическом режиме
  • matrix.zip -- операции с матрицами
  • splitscr.zip -- пример "сдвига" экрана и разделения его на 2 части
  • chngpal.zip -- пример программирования палитры цветов
  • cmos.zip -- пример чтения данных из CMOS (в данном случае - даты)
  • codtabls.zip -- модуль для перекодировки русского текста между различными таблицами (866, KOI8r, ...)
  • bgidriv.zip -- модуль, вшивающий графический драйвер egavga.bgi прямо внутрь EXE-файла

Еще подборка, но уже не моих модулей:

  • stats.zip -- набор статистических функций: распределение Гаусса, случайное число с нормальным распределением, критерий хи-квадрат (автор - Н.Кузьминых)
  • tpstring.zip -- модуль от TurboPower: операции со строками. Я мог бы и сам то же самое написать, просто лень было ;-)
  • tpstack.zip -- модуль от TurboPower: показывает, сколько в сумме программа требует стека и хипа - полезен для оптимизации использования памяти
  • sound.zip -- модуль предназначен для фонового проигрывания мелодий в формате музыкального редактора А.В.Кочкуна, найденого в старой софтпанораме, на PC-Speaker'е
  • D6.arj, Dm.arj -- исходники музыкального редактора А.В.Кочкуна (Pascal 5.5), любезно присланные автором.

Парочка простеньких программ (в исходниках):

  • da.zip -- удаление файлов по маске в подкаталогах (пример работы с модулем DOS)
  • freeints.zip -- показывает свободные вектора прерываний
ċ
D6.arj
(70k)
Konstantin Beliaev,
18 окт. 2015 г., 12:59
ċ
Dm.arj
(9k)
Konstantin Beliaev,
18 окт. 2015 г., 12:59
ċ
altprint.zip
(17k)
Konstantin Beliaev,
18 окт. 2015 г., 12:59
ċ
bgidriv.zip
(4k)
Konstantin Beliaev,
18 окт. 2015 г., 12:59
ċ
chngpal.zip
(1k)
Konstantin Beliaev,
18 окт. 2015 г., 12:59
ċ
cmos.zip
(1k)
Konstantin Beliaev,
18 окт. 2015 г., 12:59
ċ
codtabls.zip
(3k)
Konstantin Beliaev,
18 окт. 2015 г., 12:59
ċ
crtgraf.zip
(5k)
Konstantin Beliaev,
18 окт. 2015 г., 12:59
ċ
da.zip
(1k)
Konstantin Beliaev,
18 окт. 2015 г., 12:59
ċ
dateproc.zip
(2k)
Konstantin Beliaev,
18 окт. 2015 г., 12:59
ċ
editors.zip
(7k)
Konstantin Beliaev,
18 окт. 2015 г., 12:59
ċ
fonts.zip
(6k)
Konstantin Beliaev,
18 окт. 2015 г., 12:59
ċ
fourier.zip
(9k)
Konstantin Beliaev,
18 окт. 2015 г., 12:59
ċ
freeints.zip
(0k)
Konstantin Beliaev,
18 окт. 2015 г., 12:59
ċ
gfish.zip
(2k)
Konstantin Beliaev,
18 окт. 2015 г., 12:59
ċ
graftxt.zip
(1k)
Konstantin Beliaev,
18 окт. 2015 г., 12:59
ċ
heaperor.zip
(0k)
Konstantin Beliaev,
18 окт. 2015 г., 12:59
ċ
knobs.zip
(6k)
Konstantin Beliaev,
18 окт. 2015 г., 13:00
ċ
lists.zip
(1k)
Konstantin Beliaev,
18 окт. 2015 г., 13:00
ċ
logfile.zip
(1k)
Konstantin Beliaev,
18 окт. 2015 г., 13:00
ċ
matrix.zip
(3k)
Konstantin Beliaev,
18 окт. 2015 г., 13:00
ċ
menuline.zip
(2k)
Konstantin Beliaev,
18 окт. 2015 г., 13:00
ċ
mouse.zip
(5k)
Konstantin Beliaev,
18 окт. 2015 г., 13:00
ċ
mydirr.zip
(1k)
Konstantin Beliaev,
18 окт. 2015 г., 13:00
ċ
mygraf.zip
(6k)
Konstantin Beliaev,
18 окт. 2015 г., 13:00
ċ
mystring.zip
(1k)
Konstantin Beliaev,
18 окт. 2015 г., 13:00
ċ
plotter.zip
(1k)
Konstantin Beliaev,
18 окт. 2015 г., 13:00
ċ
read_cfg.zip
(2k)
Konstantin Beliaev,
18 окт. 2015 г., 13:00
ċ
read_ico.zip
(4k)
Konstantin Beliaev,
18 окт. 2015 г., 13:00
ċ
sound.zip
(3k)
Konstantin Beliaev,
18 окт. 2015 г., 13:00
ċ
splitscr.zip
(2k)
Konstantin Beliaev,
18 окт. 2015 г., 13:00
ċ
stars.zip
(2k)
Konstantin Beliaev,
18 окт. 2015 г., 13:00
ċ
stats.zip
(5k)
Konstantin Beliaev,
18 окт. 2015 г., 13:00
ċ
str_ptr.zip
(0k)
Konstantin Beliaev,
18 окт. 2015 г., 13:00
ċ
tpstack.zip
(3k)
Konstantin Beliaev,
18 окт. 2015 г., 13:00
ċ
tpstring.zip
(10k)
Konstantin Beliaev,
18 окт. 2015 г., 13:01
Comments