Понедельник, 20.08.2018
Королевство Delphi
Главное меню
Статьи
Наш опрос
Нашли свой исходник?
Всего ответов: 92
Статистика
Онлайн всего: 1
Гостей: 1
Пользователей: 0
Форма входа
Главная » Статьи » Разные » Примеры Delphi

Ini-файл в директории программы
function ReadIni(ASection, AString : String) : String;
var
 sIniFile: TIniFile;
 sPath : String[60];
const
 S = 'xyz'; 
begin
 GetDir(0,sPath);
 sIniFile := TIniFile.Create(sPath + '\Name.INI');
 Result := sIniFile.ReadString(ASection, AString, S); { [Section] String=Value }
 sIniFile.Free;
end;

procedure WriteIni(ASection, AString, AValue : String);
var
 sIniFile: TIniFile;
 sPath : String[60];
begin
 GetDir(0,sPath);
 sIniFile := TIniFile.Create(sPath + '\Name.INI');
 sIniFile.WriteString(ASection, AString, AValue);; { [Section] String=Value }
 sIniFile.Free;
end;

Получить ссылку на материал

Категория: Примеры Delphi | Добавил: Барон (21.12.2011)
Просмотров: 293 | Теги: директория, INI, файл | Рейтинг: 0.0/0
[ Пожертвования для сайта ] [ Пожаловаться на материал ]

Если вам помог материал сайта кликните по оплаченной рекламе размещенной в центре

Поиск
Категории раздела
Delphi.NET [3]
Kylix Delphi for Linux [9]
Советы Дельферу [6]
Хитрости в Delphi [2]
Обзор Delphi [45]
Инсталлятор [11]
Пользовательский интерфейс [18]
Примеры Delphi [93]
Функции и процедуры [16]
Разные [31]
Королевство Delphi © 2010-2018
Яндекс цитирования