воскресенье, 10 февраля 2013 г.

сохранить число из label1 в ini файл

Ini файл является текстовым файлом. Давайте введем значения в нашу программу и нажмем на кнопку сохранить. У меня получилось -

При отсутствии указанных разделов иPидентификаторовPони создаются.

WriteXXX(Раздел, Идентификатор, Значение);

Общий вид этих методов -

Далее мы сохраняем значения полей которые мы ввели. Для этого предназначены методы -PWriteInteger (для целых чисел),PWriteBool (- логических данных),PWriteDate (для даты),PWriteTime (- времени),PWriteDateTime (- даты и времени), WriteString (- текста),PWriteFloat (- вещественных чисел).

Строка в скобках задает положение и имя файла инициализации. Если написать простоP'init.ini' то файл инициализации будет расположен в системном каталоге Windows, например в C:\Windows. Или, используя функцию ExtractFilePath(Application.ExeName)PPв каталоге запущенной программы. При отсутствии файла инициализации он Pбудет создан.

fini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'init.ini');

fini - локальная переменную классаPTIniFile она создается в первой строчке -

fini.WriteBool('LICENCIA','aktirovan',CheckBox1.Checked);

fini.WriteString('LICENCIA','kolvo',Edit3.Text);

fini.WriteString('NAME','NameOrg',Edit2.Text);

fini.WriteString('NAME','NameFIO',Edit1.Text);

fini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'init.ini');

procedure TForm1.Button1Click(Sender: TObject);

Теперь напишем код для кнопки сохранить -

Для работы необходимо добавить модуль IniFiles в раздел Uses -

Расположим на форме 3 компонента label (Имя, Организация, Число лицензий),P3 - Edit для ввода данных 2 компонента кнопок (сохранить, загрузить), и CheckBox1 (флажок активации).

Данные, связанные с настройкой программы, обычно используют системный реестр или инициализационный файл имеющий расширение ini. В данной статье будет рассмотрим второй вариант.

сайт о том, как создавать приложения под Windows

Использование ini файлов в Delphi приложениях | Языки программирования. Delphi. Уроки Delphi.

Комментариев нет:

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