Всех с наступающим!!!
Здравствуйте при написании кода произошла проблема.
Я сохраняю картинки в листбокс и оттуда их открываю на форме.
код такой:
1.Загрузка изображения (также сохранение):
Код:
procedure TForm5.sButton1Click(Sender: TObject);
var FileName:string; Path : String;
begin
if OpenPictureDialog1.Execute then
Image1.Picture.LoadFromFile( OpenPictureDialog1.FileName) ;
ListBox1.Items.Add(OpenPictureDialog1.FileName) ;
Listbox1.Items.SaveToFile('IMAGES') ;
end;
2.Открываю в Image:
Код:
procedure TForm5.ListBox1Click(Sender: TObject);
var FileName:string; Path : String;
begin
FileName:=Path+ListBox1.Items[ListBox1.ItemIndex] ;
Image1.Picture.LoadFromFile(FileName) ;
end;
3.Подгрузка изображений в список:
Код:
procedure TForm5.FormCreate(Sender: TObject);
var FileName:string;
Path : String;
i:integer;
begin
Listbox1.Items.LoadFromFile('IMAGES') ;
end;
Все хорошо и отлично,но только почему то сохраняет список путей картинок на рабочий стол, а подгружает из папки с программой,а там не создается...
В чем проблема?