Связь по компонентам

[sistemsx]

Добрый день или вечер
Не знаю как точно задать свой вопрос, но попробую по конкретней объяснить. В общем суть такая, кидаем на форму компоненты которые отвечают за отображение информации, например (Image, listbox, FileListBox, memo, WebBrowser, и. т. д) Далее заполняем listfox или FileListBox строками. После при выборе строк открывались данные в этих компонентах, то есть например в FileListBox строка1 в memo выводиться текст в Image картинка. Выбрали строка2 в memo другой текст и Image другая картинка. Как то вот так. Вариант базы данных не предлагать.

[Zis67]

procedure TForm1.ListBox1Click(Sender: TObject);
begin
memo1.lines.add(inttostr(listbox1.ItemIndex));
image1.Picture.LoadFromFile(('C:\Изображения\'+inttostr(listbox1.ItemIndex)+'.jpg'));
end;

[sistemsx]

Что то я не правильно свою мысль высказал. Скорей всего так, допустим в директории есть три папки, в каждой папке по одному файла txt и jpg. Я думаю что придется создавать еще один связывающий файл с listbox и с файлами которые в папках (типо ссылок), можно ли так реализовать?

[Zis67]

если назвать файлы 1,2,3... то полагаю необязательно. либо по содержанию строки листбокса(его можно заполнять названиями соответствующих файлов). в противном случае наверное да.

[sistemsx]

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

[kropotkina-alice]

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

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

А вам что, Борланд заблокировал метод
Memo.LoadFromFile('inttostr(listbox 1.ItemIndex)+'.txt')?

[Heneken87]

Что мешает сделать поиск каталогов внутри конкретной директории "[КАРТИНКИ-ТЕКСТ]"? И в листбох вывести названия папок:
[КАРТИНКИ-ТЕКСТ]
В листбоксе:
{- Папка 1
- Папка 2
- Папка 3}
ПРи клике на ликсбох заходим по пути и грузим картинку в картинку текст в текст

Код поиска всех файлов внутри каталога и в подкаталогах через рекурсию :

procedure Tlogins.GetAllFiles(Path: string; lb: Tlistbox);
var
sRec: TSearchRec;
isFound: boolean;
begin
isFound := FindFirst(Path + '/*.*', faAnyFile, sRec ) = 0;
while isFound do
begin
if ( sRec.Name<>'.' ) and ( sRec.Name<>'..' )  then
begin
if ( sRec.Attr and faDirectory ) = faDirectory then
GetAllFiles( Path + '/' + sRec.Name, Lb );
Lb.Items.Add(sRec.Name);
end;
Application.ProcessMessages;
isFound := FindNext( sRec ) = 0;
end;
FindClose( sRec );

end;

Код поиска только каталогов внутри директории без рекурсии

procedure Tlogins.GetAllDIR(Path: string);
var
sRec: TSearchRec;
isFound: boolean;
begin
isFound := FindFirst(Path + '/*.*', faDirectory, sRec ) = 0;
while isFound do
begin
if ( sRec.Name<>'.' ) and ( sRec.Name<>'..' )  then
begin
if ( sRec.Attr and faDirectory ) = faDirectory then
begin
SetLength(Style_mass,Length(Style_mass)+1); 
Style_mass[Length(Style_mass)-1]:=sRec.Name; Тут не массив у вас, а в листбох
end;

end;
Application.ProcessMessages;
isFound := FindNext( sRec ) = 0;
end;
FindClose( sRec );
end;

[Aliens_wolfs]

Есть еще вариант в ListBox.Items.AddObject в этх строках можно хранить массив со всей информацией о ссылках на файлы и т.д. так сказать расширить этот компонент. Могу подробней описать

 
//Массив с нужной инфой
 type
  PObjectInfo = ^TObjectInfo;
  TObjectInfo = record
  FileNameImage: string; //Ссылка на картинку
  FileNamenтxt: string;// ссылка на текст
  end;

//Загрузка в ListBox массивных данных
procedure TForm1.Button3Click(Sender: TObject);
var
ObjectInfo: PObjectInfo;
begin
new(ObjectInfo);
ObjectInfo.FileNameImage:= 'D:\Иванов.jpg';
ObjectInfo.FileNameTxt:= 'D:\Иванов.txt';
ListBox1.Items.AddObject('Иванов', TObject(ObjectInfo));

new(ObjectInfo);
ObjectInfo.FileNameImage:= 'D:\Петров.jpg';
ObjectInfo.FileNameTxt:= 'D:\Петров.txt';
ListBox1.Items.AddObject('Петров', TObject(ObjectInfo));
.................
и т.д.
end;

//При выборе строки в ListBox нужная инфа отразиться в нужных компонентах
procedure TForm1.ListBox1Click(Sender: TObject);
var
ObjectInfo: PObjectInfo;
begin
ObjectInfo:= PObjectInfo(ListBox1.Items.Objects[ListBox1.ItemIndex]);
if ObjectInfo <> nil then
begin
 // проверяем существование файла
If FileExists(ObjectInfo.FileNameImage) then
Image1.Picture.LoadFromFile(ObjectInfo.FileNameImage);

// проверяем существование файла
If FileExists(ObjectInfo.FileNameTxt) then 
memo1.Lines.LoadFromFile(ObjectInfo.FileNameTxt);
end;
end;

//Чистка ListBox от массивных данных 
procedure TForm1.Button4Click(Sender: TObject);
var
i: integer;
begin
for i:= 0 to ListBox1.Items.Count -1 do
dispose(PObjectInfo(ListBox1.Items.Objects[i]));
 ListBox1.Clear;
end;

Переделать этот код не сложно под себя
Для быстроты загрузки можно хранить уже загруженные данные если конечно строк не очень много иначе память грузить будет

[sistemsx]

Добрый день. Не пойму почему не работает, делфи ругается на GetAllFiles, что надо добавить в uses?

[sistemsx]

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

Добрый день. Не пойму почему не работает, делфи ругается на GetAllFiles, что надо добавить в uses?

delphi xe3