Цитата:
Сообщение от march
Так до выполнения этой строки listbox1 должен быть заполнен записями - один,
в listbox1 должен быть УЖЕ выделен какой-либо путь (или инициализирован listbox1.ItemIndex) - два.
|
Один - заполнил
Код:
begin
if FindFirst('*.txt', faAnyFile, searchResult) = 0 then
begin
repeat
Form7.ListBox1.Items.Add(searchResult.Name);
until FindNext(searchResult) <> 0;
FindClose(searchResult);
end;
end;
Два - непонятно... я просто в евенте на он клик создал вышеизложеную строчку
Код:
Memo1.Lines.LoadFromFile(listbox1.Items[listbox1.ItemIndex]);