Как хранить настройки для программы. Работа с INI-файлами
|
Разговор двух украинских программистов.
- Слышь Микола, как москали КД-ПЗУ называют?
- Как?
- CD-ROM!
- Поубывал бы.
|
var
IniFile: TIniFile;
//конкретные переменные - мои - храню их в инишке
IniPortItem: integer;
IniRTSChecked: boolean;
const
//значения по умолчанию
DefPortItem = 1;
DefRTSChecked = false;
procedure ReadIni;
var
IniPath: string;
FileName: string;
begin
GetDir(0,IniPath);
FileName:=IniPath+'\muk.ini';
IniFile:=TIniFile.Create(FileName);
IniPortItem:=IniFile.ReadInteger('Port','Number',DefPortItem);
IniRTSChecked:=IniFile.ReadBool('Port','RTS/CTS',DefRTSChecked);
IniFile.Free;
end;
procedure SaveIni;
var
IniPath: string;
FileName: string;
begin
GetDir(0,IniPath);
FileName:=IniPath+'\muk.ini';
IniFile:=TIniFile.Create(FileName);
IniFile.WriteInteger('Port','Number',IniPortItem);
IniFile.WriteBool('Port','RTS/CTS',IniRTSChecked);
IniFile.Free;
end;
|
|
