[Stalker999]

Господа, у меня вопрос. Допустим, имеются папки с картинками, в лист боксе список этих папок. Нужно, чтобы при нажатии на названии в лист боксе открывались картинки в image, а по кнопкам(следующая, предыдущая и т.д.) открывались соответствующие картинки

[Pyro]

Допустим нужен ещё один лист бокс - с именами файлов в папке
собрать их можно в худшем случае findfirst/findnext
в лучшем найти или написать обёртку над ними
И Image.picture.loadfromfile чтобы открывались соответствующие картинки

[angvelem]

Ни к чему дополнительный ListBox, достаточно хранить в объекте к каждому итему полный путь к файлу.

[Stalker999]

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

Ни к чему дополнительный ListBox, достаточно хранить в объекте к каждому итему полный путь к файлу.

А в каком объекте? (строго не судите за вопросы, в делфи начинающий...)
Вот, что я хочу сделать

[angvelem]

Используем примерно так:

Код:

  TFileInfo = class
  public
    FileName: String;
  end;

  ...
  FileInfo := TFileInfo.Create;
  FileInfo.FileName := FileName;
  ListBox1.Items.AddObject('Название картинки', FileInfo);
  ...

[Stalker999]

Спасибо, завтра попробуем...

[Stalker999]

Код:

  TFileInfo = class

Это надо в типах прописать?
Если да, то так ошибка получается

[Stalker999]

Код:

procedure TForm1.ListBox1Click(Sender: TObject);
begin
case ListBox1.ItemIndex of
  0 : begin
Image1.Picture.LoadFromFile('Files\zzz.jpg');
      end;
end;

и почему в этом коде ошибка, мол неизвестное расширение картинки?

[lmikle]

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

и почему в этом коде ошибка, мол неизвестное расширение картинки?

Добавь модуль jpeg в uses.

[Stalker999]

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

Добавь модуль jpeg в uses.

Благодарю)

[angvelem]

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

Код:

  TFileInfo = class

Это надо в типах прописать?
Если да, то так ошибка получается

Да.
Где и какая?

[Stalker999]

прописываю в type и в итоге ошибка: expested ':' but '=' found

[Stalker999]

Код:

type
   TFileInfo = class
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Image1: TImage;

везде пробовал прописывать, и по всякому, а правильно не получилось...

[M.A.D.M.A.N.]

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

Код:

type
   TFileInfo = class
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Image1: TImage;

везде пробовал прописывать, и по всякому, а правильно не получилось...

Это че за ф-ня???

[angvelem]

Несколько по иному нужно.
1. Усиленно учить Дельфи.
2. Прописывается так:

Код:

type
  TFileInfo = class
  public
    FileName: String;
  end;

3. Это класс, он не делится на части по Вашей прихоти.