Для вас не секрет, что большинство программ сохраняют свои последние настройки и при запуске загружают их обратно. Коротко можно сказать, что эти программы наделены свойством восстановления своих последних параметров. Чтобы реализовать это, практически все программисты используют ini файлы. Ini-файлы в delphi очень полезная вещь. Если бы для хранения информации программы использовалась бы память системы или специально создавались бы текстовые документы, то это привело бы к загромождению программного кода, что может плохо сказаться на загрузку программы. Вот тут ini-файлы приобретают свое значение в применении в delphi. Их уникальность проявляется в том, что, благодаря несложной структуры, сохранение настроек вашей прогаммы достигается наименьшими вашими усилиями и загрузкой системной памяти. Если наглядно, то, скажем, пятдесять строк вашего программного кода, которых вы прописали для сохранение некоторых параметров, заменятся всего лишь пятью-десятью строками. Гораздо лучше, не правда ли? Применение ini-файлаПервым делом нам необходимо подключить модуль IniFiles, прописав его в Uses, чтобы мы могли работать с классом TIniFile. Дальше объявляем переменную, в которую будем заносить, в последствии и читать данные. На месте Vals можете использовать любой другой идентификатор. Далее эту переменную необходимо создать. Vals := TIniFile.Create('Название_ini_файла');
|
Следует отметить, что если вы напишите название инифайла без укаzания пути к нему, такой файл будет создан в каталоге Wimdows и будет читаться оттуда. После использования этой переменной ее следует уничтожить, освободив при этом занимаемую ею память. Для этого используйте команду: Между созданием переменной Vals и ее уничтожением находятся команды записи и чтения параметров.
Рассмотрим ini-файл на примереСоздаем любой проект и в процедуре закрытия формы пишем следующий программный код: | procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); var Vals: Tinifile; begin Vals:=TiniFile.Create(extractfilepath(paramstr(0))+'vals.ini'); Vals.WriteString('Form','Caption',Form1.Caption); Vals.WriteInteger('Form','Left',Form1.Left); Vals.WriteInteger('Form','Top',Form1.Top); Vals.WriteInteger('Form','Width',Form1.Width); Vals.WriteInteger('Form','Height',Form1.Height); Vals.Free; end; |
А в процедуре открытия формы пишем: | procedure TForm1.FormCreate(Sender: TObject); var Vals: Tinifile; begin Vals:=TiniFile.Create(extractfilepath(paramstr(0))+'vals.ini'); Form1.Caption:=Vals.ReadString('Form','Caption','Использование .INI'); Form1.Left:=Vals.ReadInteger('Form','Left',1); Form1.Top:=Vals.ReadInteger('Form','Top',1); Form1.Width:=Vals.ReadInteger('Form','Width',460); Form1.Height:=Vals.ReadInteger('Form','Height',460); Vals.Free; end; |
Теперь запустите вашу программу и попробуйте переместить окно программы. Потом закройте и снова запустите, тем самым убедитесь в работе вами созданного ini-файла. Cтворення web сайту
Нравится
| 
