Lightosaur
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Привет всем!
Уже несколько дней изучаю явление, которое может быть интересно и вам.
Вдруг и меня кто уму разуму наючит.
Дело в следующем:
На простой форме класса TForm размещено 4 компонента класса TEdit
и один компонент класса TImage, для згрузки картинки в который,
добавлен компонент TOpenPictureDialog.
В ходе работы пользователь заполняет строчки компонентов TEdit
и используя диалог TOpenPictureDialog открывает картинку в TImage.
Затем при закрытии формы текстовые строки добавляются в списки,
строки которых сохраняются на диске в текстовых файлах. Адрес файла
картинки также сохраняется в списке. Фрагмент кода выглядит так:
...
procedure TForm3.Button1Click(Sender: TObject);
begin
OpenPictureDialog1.InitialDir := 'D:\';
OpenPictureDialog1.Execute;
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;
procedure TForm3.Button2Click(Sender: TObject);
const
path1 = '..\Ini1\ini1.txt';
begin
List1.Add(Edit1.Text);
List1.SaveToFile(path1);
Form1.ListBox1.Items:= List1;
...
В результате выясняется, что возможность сохранения списка, к которому
добавлена строка из Edit1 в файле напрямую зависит от диалога открытия
картинки. Поначалу после выбора файла картинки и загрузки её в
Image1.Picture дальнейшее нажатие кнопки Button2 приводило к
ошибке с сообщением "Can not creat file ....\Ini1\ini1.txt"
При отключенном диалоге (//OpenPictureDialog1.Execute;) вся текстовая
информация из Edit1.Text сохраняется в файл без проблем.
Диалог OpenPictureDialog каким то образом изменяет адреса файлов?
И сейчас, при наличии диалога картинки, программа работает лишь,
если выбрана картинка из директории, в которой расположены файлы
\Ini1\ini1.txt. Попытка открыть файл картинки с диска С:\ опять
приводит к ошибке. Может кто знает, как это вылечить?
C глубоким уважением ковсем жителям этого форума,
ваш Lightosaur |
