Форум: "Начинающим";
Текущий архив: 2006.03.05;
Скачать: [xml.tar.bz2];
ВнизРабота с Ini - файлами Найти похожие ветки
← →
mozgan (2006-02-17 21:53) [0]Добрый вечер, господа Мастера!
Помогите разобраться с вопросом по работе с ini файлами.
На форме есть Image1. При выходе из программы сохраняются путь и имя
в последний раз загруженного изображения. Все сохраняется, но после второго
и / или третьего запуска проги все значения стираются.
В чем прикол - не пойму. Особо c инифайлами не работал, но вот пришлось.
Вот мой код.
Skin - Image1;
Open - OpenDialog1
------------------
procedure TForm1.FormDestroy(Sender: TObject);
var
ini: TIniFile;
begin
ini:=TiniFile.Create(extractfilepath(paramstr(0))+"setup.ini");
ini.WriteString("SKIN","Name",extractfilepath(open.FileName)+extractfilename(ope n.FileName));
ini.Free;
////////////
procedure TForm1.FormCreate(Sender: TObject);
var
ini: TIniFile;
begin
ini:=TiniFile.Create(extractfilepath(paramstr(0))+"setup.ini");
Skin.Picture.LoadFromFile(ini.ReadString("SKIN","Name",open.FileName));
ini.Free;
← →
Virgo_Style © (2006-02-17 22:00) [1]Запуск №1
запустил программу
...
выходишь - сохранилось имя файла из open
Запуск №2
запустил - загрузился скин
...
выходишь - сохраняется имя файла из open, а ведь туда ничего не писалось!
вроде так?
← →
mozgan (2006-02-17 22:20) [2]Сначала все записывается и остается. Я открывал файл и раз двадцать просматривал - нормально. Вопрос то в том, что например обнови окно клавой F5 раза три - тот же результат, что и с запуском проги. Не понимаю!
Есть идеи?
И ваще, как правильно сохранить инфу о image1 в INI?
← →
Virgo_Style © (2006-02-17 22:23) [3]идея есть, в [1] изложена.
код, выполняющийся при нажатии на F5 неплохо бы в студию.
смотря какую инфу.
← →
mozgan (2006-02-17 22:26) [4]Я пытаюсь использовать Opendialog1 для автоматического открытия (не знаю ка кправильно сказать :))) файла, указанного в инишке и загрузить в image1.
Вот.
← →
Джо © (2006-02-18 04:06) [5]> [4] mozgan (17.02.06 22:26)
> Я пытаюсь использовать Opendialog1 для автоматического открытия
> (не знаю ка кправильно сказать :))) файла, указанного в
> инишке и загрузить в image1.
> Вот.
TOpenDialog не открывает файлов, это заблуждение. Наверное, придётся подумать над тем, чтобы "правильно сказать" :)
← →
antonn © (2006-02-18 06:44) [6]mozgan (17.02.06 22:26) [4]
Я пытаюсь использовать Opendialog1 для автоматического открытия (не знаю ка кправильно сказать :))) файла
Opendialog - это инструмент выбора файла, а не его открытия.
> ini.WriteString("SKIN","Name",extractfilepath(open.File
> Name)+extractfilename(ope n.FileName));
ух...
procedure TForm1.FormCreate(Sender: TObject);
var ini: TIniFile;
begin
ini:=TiniFile.Create(extractfilepath(paramstr(0))+"setup.ini");
try
open.FileName:=ini.ReadString("SKIN","Name","");
if fileexists(open.FileName) then
Skin.Picture.LoadFromFile(open.FileName);
finally
ini.Free;
end;
end;
← →
mozgan (2006-02-19 20:12) [7]Ребят, спасиба. Немного подумал и чуточку разобрался.
Спасибо!
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.03.05;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.025 c