Hello, All!

По пpосьбе паскалистов -- модуль для pаботы с INI-файлами под ДОСом как в
Windows.

      С уважением,
                                 Alexander Rublinetsky

--- GoldED 2.50.Beta5+
 * Origin: -= Gimont =- (2:461/45.101)

{> Cut here. FileName= INIFILES.RUS }
+----------------------------------------------------------------------+
|           Функции для работы с инициализационными файлами в          |
|                        стиле Windows INI files                       |
|                                                                      |
|        Copyright Alexander Rublinetsky (2:461/45.101@fidonet)        |
|                         FREEWARE,  "AS IS"                           |
+----------------------------------------------------------------------+

Модуль INIFILES содержит три функции:
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
function GetProfileString( section:string;  entry:string;
                      default:string;  filename:PathStr):string;

function GetProfileInt( section:string;  entry:string;
                     default:integer;  filename:PathStr):integer;

function WriteProfileString( section:string;  entry:string;
                      value:string;  filename:PathStr):boolean;

***************************************************************
ОПИСАНИЕ

+-------------------------------------------------------------+
|    function GetProfileString(section:string; entry:string;  |
|                  default:string; filename:PathStr):string;  |
+-------------------------------------------------------------+
Функция GetProfileString возвращает текстовую строку, ассоциированную
с индексной строкой entry в секции section файла filename.

Параметр               Описание
----------------------------------------------------------------
section                 содержит имя секции
entry                   содержит имя индексной строки
default                 содержит строку, которая будет возвращена,
                        если по каким-либо причинам не найдена
                        индексная строка.
filename                содержит имя инициализационного файла

Возврат
~~~~~~~
Функция возвращает текстовую строку, ассоциированную с индексной
строкой entry