Работа с ini файлами и panel

@Night_Chaser · Регистрация: 28.10.2015

Студворк — интернет-сервис помощи студентам

Всем привет) Уважаемые, помогите решить проблему чтения ini-файла в компонент panel в свойство caption. Записывает то что нужно и как нужно. А вот с чтением проблема. Всем спасибо!)
Записывается в файл цифра.
Вот пример кода:
Запись:

Delphi
1
2
3
4
5
6
7
8
9
var
  ibc: Tinifile;
  filename:string;
begin
ibc:=TiniFile.Create('Files\image\settings.ini');
filename := ExtractFilePath(ParamStr(0)) + 'Files\image\settings.ini';
ibc := TIniFile.Create(filename);
ibc.WriteString('SF','Caption',Panel1.Caption);
end;

Чтение:

Delphi
1
2
3
4
5
6
7
8
9
10
var
  ibc: Tinifile;
  filename:string;
begin
ibc:=TiniFile.Create('Files\image\settings.ini');
filename := ExtractFilePath(ParamStr(0)) + 'Files\image\settings.ini';
ibc := TIniFile.Create(filename);
ibc.ReadString('SF','Caption',Panel1.Caption); // Проблема с присвоением в нужный компонент в нужное свойство  //
ibc.Free;
end;

@Puporev · 11.06.2017, 10:38

Delphi
1
2
3
var s:string;
.................
Panel1.Caption:=ibc.ReadString('SF','Caption',s);

@Animalia · 11.06.2017, 11:10

От себя добавлю строчку из модуля IniFiles: function ReadString(const Section, Ident, Default: string): string; override;

Не по теме:

Сообщение от Night_Chaser

ibc:=TiniFile.Create('Files\image\settin gs.ini');
filename := ExtractFilePath(ParamStr(0)) + 'Files\image\settings.ini';
ibc := TIniFile.Create(filename);

Дважды создавать обьект не комильфо :)
Первую строчку лучше удалить

@TFullControl · 11.06.2017, 11:13

Animalia, его еще и уничтожить надо.

@Animalia · 11.06.2017, 11:32

TFullControl, Ну... у ТС в коде есть ibc.Free;

@Night_Chaser · 11.06.2017, 11:43 **[ТС]**

Спасибо за ответ. А как передать в переменную S значение из файла ini, так как сейчас переменная пустая и caption у panel1 остается пустым?!

@Puporev · 11.06.2017, 11:54

Delphi
1
ibc.WriteString('SF','Caption','Это моя панель №1');

@TFullControl · 11.06.2017, 12:00

Animalia, в процедуре чтения есть, а в процедуре записи нет. И чтение и запись у него отдельные процедуры, с локальными переменными типа ТIniFile, создать создал, но не убил.

@Animalia · 11.06.2017, 12:37

Такс. Давайте по порядку. Гуглоперевод статьи документации

function TIniFile.ReadString(const Section, Ident, Default: string): string;
Извлекает строковое значение из INI-файла.

Вызовите ReadString, чтобы прочитать строковое значение из INI-файла. Section определяет раздел в файле, который содержит нужный ключ. Ident - это имя ключа, из которого извлекается значение. Default - это строковое значение, возвращаемое, если:
Section не существует.

Ключ не существует.

Значение данных для ключа не назначено.

Эта версия ReadString доступна только в том случае, если приложение скомпилировано для Windows.

Все входные параметры обьявлены как const они не изменятся во время работы функции. Вообще. Значит S (Default) изначально была пустой. Новый заголовок панели присвоился, но пустой (из Default) - вот изменений и не заметно. Ну а почему он мог присвоиться из Default вместо файла описано выше в документации.

TFullControl, Woops... Недосмотрел.

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .

@TFullControl 500 / 346 / 200 Регистрация: 20.10.2016 Сообщений: 1,101
	11.06.2017, 11:13
	Animalia, его еще и уничтожить надо. 1

@Animalia 225 / 80 / 35 Регистрация: 01.04.2017 Сообщений: 182
	11.06.2017, 11:32
	TFullControl, Ну... у ТС в коде есть ibc.Free; 1

@Night_Chaser 0 / 0 / 1 Регистрация: 28.10.2015 Сообщений: 32
	11.06.2017, 11:43 [ТС]
	Спасибо за ответ. А как передать в переменную S значение из файла ini, так как сейчас переменная пустая и caption у panel1 остается пустым?! 0

@TFullControl 500 / 346 / 200 Регистрация: 20.10.2016 Сообщений: 1,101
	11.06.2017, 12:00
	Animalia, в процедуре чтения есть, а в процедуре записи нет. И чтение и запись у него отдельные процедуры, с локальными переменными типа ТIniFile, создать создал, но не убил. 1

@Animalia 225 / 80 / 35 Регистрация: 01.04.2017 Сообщений: 182
	11.06.2017, 12:37
	Такс. Давайте по порядку. Гуглоперевод статьи документации function TIniFile.ReadString(const Section, Ident, Default: string): string; Извлекает строковое значение из INI-файла. Вызовите ReadString, чтобы прочитать строковое значение из INI-файла. Section определяет раздел в файле, который содержит нужный ключ. Ident - это имя ключа, из которого извлекается значение. Default - это строковое значение, возвращаемое, если: Section не существует. Ключ не существует. Значение данных для ключа не назначено. Эта версия ReadString доступна только в том случае, если приложение скомпилировано для Windows. Все входные параметры обьявлены как const они не изменятся во время работы функции. Вообще. Значит S (Default) изначально была пустой. Новый заголовок панели присвоился, но пустой (из Default) - вот изменений и не заметно. Ну а почему он мог присвоиться из Default вместо файла описано выше в документации. TFullControl, Woops... Недосмотрел. 1