Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.11.02;
Скачать: CL | DM;

Вниз

Создание ini файла   Найти похожие ветки 

 
Rusl@n   (2008-09-21 15:44) [0]

Приведите пожалуста простой пример создания Ini файла, для настройки программы,если это не затруднит Вас


 
{RASkov} ©   (2008-09-21 16:07) [1]

implementation
uses IniFiles;
{$R *.dfm}

const INI_FILE = "Param.ini";

procedure TForm1.FormCreate(Sender: TObject);
begin
 if FileExists(ExtractFilePath(Application.ExeName)+INI_FILE) then
 with TIniFile.Create(ExtractFilePath(Application.ExeName)+INI_FILE) do try
  Left:=ReadInteger("POSSIZE", "LEFT", 0);
  Top:=ReadInteger("POSSIZE", "TOP", 0);
  Width:=ReadInteger("POSSIZE", "WIDTH", 100);
  Height:=ReadInteger("POSSIZE", "HEIGHT", 100);
 finally
  Free;
 end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 with TIniFile.Create(ExtractFilePath(Application.ExeName)+INI_FILE) do try
  WriteInteger("POSSIZE", "LEFT", Left);
  WriteInteger("POSSIZE", "TOP", Top);
  WriteInteger("POSSIZE", "WIDTH", Width);
  WriteInteger("POSSIZE", "HEIGHT", Height);
 finally
  Free;
 end;
end;

end.



Страницы: 1 вся ветка

Текущий архив: 2008.11.02;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.015 c
2-1222338232
Дева
2008-09-25 14:23
2008.11.02
каталог запуска программы


15-1220896812
Point
2008-09-08 22:00
2008.11.02
Компоненты Indy можно ли использовать в консольных приложених?


2-1222171925
neon-w
2008-09-23 16:12
2008.11.02
сохранение - загрузка?


11-1193577066
АртемКо
2007-10-28 16:11
2008.11.02
Проблема с array of pstrlist


11-1195121648
Альберт
2007-11-15 13:14
2008.11.02
при установки kol не найден exptintf.dcu