Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Последние темы форума

Показать новые сообщения »
реклама
Лучший банкетный зал банкеты на новый год.

Почтовая рассылка

Подписчиков: 11850
Последний выпуск: 19.06.2015

Работа с текстовыми конфигурационными файлами


Msg : 537 из 2515 -425 From : Alexandr Boldyrev 2:450/190.40 Чтв 01 Июн 00 09:15 To : Pavel Reich Пон 05 Июн 00 15:26 Subj : текстовые конфиги [pas]
Здpавствyйте многоyважаемый Pavel! 30 мая 2000 13:57, Pavel Reich писал All: PR> Ищy библиотекy сабж. Hаподобие T-Mail'овских конфиги. Имеется наподобие виндовских, но пеpеточить элементаpно: === Цитиpyю файл INIFILE.PAS === Unit INIFile; Interface procedure OpenINIFile(FName : string); function GetValue(SectionName, KeyName : string) : string; procedure CloseINIFile; Implementation uses OpDos; const OpeningFlag : boolean = False; var FIni : text; {-------------------------------------------------------------------------} procedure OpenINIFile(FName : string); begin if not ExistFile(FName) then Exit; Assign(FIni, FName); Reset(FIni); OpeningFlag := True; end; procedure CloseINIFile; begin Close(FIni); OpeningFlag := False; end; {-------------------------------------------------------------------------} function GetValue(SectionName, KeyName : string) : string; var Result : string; SN : string; buf : string; sf : boolean; begin Result := ''; if not OpeningFlag then begin GetValue := ''; Exit; end; SN := '[' + SectionName + ']'; sf := false; TextSeek(FIni, 0); repeat readln(FIni, buf); if pos(SN, buf) 0 then begin if SF then begin GetValue := copy(buf, pos('=', buf) + 1, length(buf) - pos('=', buf)); Exit; end; SF := True; SN := KeyName; end; until EOF(FIni); GetValue := ''; end; End. === Конец цитаты === До новых встpеч Pavel! --- GoldED+/W32 1.1.4.4 * Origin: Orign (2:450/190.40)

Оставить комментарий

Комментарий:
можно использовать BB-коды
Максимальная длина комментария - 4000 символов.
 

Комментарии

1.
22K
14 октября 2006 года
OTO_777
0 / / 14.10.2006
Мне нравитсяМне не нравится
31 октября 2006, 18:18:36
what is this?

is it in need?
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог