[scroyler]

Всех с наступающим!!!

Здравствуйте при написании кода произошла проблема.
Я сохраняю картинки в листбокс и оттуда их открываю на форме.
код такой:

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;

Все хорошо и отлично,но только почему то сохраняет список путей картинок на рабочий стол, а подгружает из папки с программой,а там не создается...
В чем проблема?

[Страдалецъ]

Найдите отличия в написании пути:

Код:

Listbox1.Items.SaveToFile('IMAGES')

и

Код:

 FileName:=Path+ListBox1.Items[ListBox1.ItemIndex] ;
Image1.Picture.LoadFromFile(FileName) ;

[scroyler]

Сообщение от Страдалецъ

Найдите отличия в написании пути:

Код:

Listbox1.Items.SaveToFile('IMAGES')

и

Код:

 FileName:=Path+ListBox1.Items[ListBox1.ItemIndex] ;
Image1.Picture.LoadFromFile(FileName) ;

А как исправить?
А то список картинок сохраняет на раб.стол а считать пытается с папки где находится прога(

[Страдалецъ]

Если вам надо путь откуда происходит запуск приложения, то так можно:

Код:

Listbox1.Items.LoadFromFile(ExtractFilePath(ParamStr(0))+'IMAGES')

и

Код:

Listbox1.Items.SaveToFile(ExtractFilePath(ParamStr(0))+'IMAGES');

[scroyler]

Ошибка.
[Error] Unit5.pas(56): Incompatible types: 'String' and 'procedure, untyped pointer or untyped parameter'

[ChinYan]

Код дайте свой. строку 56 хотябы

[scroyler]

Код:

Listbox1.Items.LoadFromFile(ExtractFilePath(ParamStr(0))+'IMAGES')

и

Код:

Listbox1.Items.SaveToFile(ExtractFilePath(ParamStr(0))+'IMAGES');