[AlienZ]

Добрый день. Появился такой вопрос.
Необходимо связать ListBox и Memo таким образом, чтобы ListBox заносил в Items список всех текстовых файлов в определенной папке, а при клике на какой-либо файл из списка его содержимое выводилось в Memo.

Получение списка файлов организовал таким образом:

Код:

Procedure FindFile(path, ext: string);
Var SR : TSearchRec;
    Res : Integer;
begin
  Res := FindFirst(path+ext, faAnyFile, SR);
  while Res = 0 do
  begin
   Form1.ListBox1.Items.Add(path+Sr.Name);
   Res := FindNext(SR);
  end;
  FindClose(SR);
end;

...

procedure TForm1.Button1Click(Sender: TObject);
begin
FindFile('C:\Test\', '*.txt');
end;

А вот как связать файл из списка, Memo и непосредственно сам текстовый файл понять не могу... Помогите кто может плз:-)

[AleD]

первую часть смотри здесь, вторая очень простая -

Код:

Memo1.Lines.LoadFromFile('C:\1.txt')

[AlienZ]

Спасибо, сейчас попробую

[AlienZ]

чет как-то не получается...
не могу понять как все это связать...

[AleD]

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

чет как-то не получается...
не могу понять как все это связать...

что конкретно, код в студию

[AlienZ]

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

первую часть смотри здесь, вторая очень простая -

Код:

Memo1.Lines.LoadFromFile('C:\1.txt')

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

[AleD]

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

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

разве сложно вместо 'C:\1.txt' заменить на ListBox1.Items[ListBox1.ItemIndex]?

[AlienZ]

Все, все получилось. Спасибо большое!