|
Вопрос # 1 779/ вопрос открыт / |
|
Доброго времени суток, уважаемые эксперты!
у меня такой вопрос, я использую TFileListBox, в нем я выбираю несколько файлов одновременно, после этого нужно считывать их содержимое. Каким методом или свойством можне переходить от первого выделенного файла к последниму или как этот компанент определяет какие файл выделены? какой последний параметр передать функции Assignfile?
Приложение: Переключить в обычный режим- begin
- AssignFile(F,form1.FileListBox1.FileName??????????);
- Reset(F);
- while Not SeekEof(F) do begin
- Setlength(Dict,i+1);
- readln(F,Dict[i]);
- i:=i+1;
- end;
- Closefile(f);
- i:=0;
- while i<length(dict) do begin
- Listbox1.Items.text:=Listbox1.Items.text+dict[i];
- i:=i+1;
- end;
- j:=j+1;
- end;
 |
Вопрос задал: Stepani4 (статус: Посетитель)
Вопрос отправлен: 22 июля 2008, 12:18
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Вадим К
Здравствуйте, Stepani4!
Программировали под .NET? Только там так ставят вопросы.
а так, всё очень просто. Вот пример:
var i:integer;
begin
if FileListBox1.SelCount = 0 then
ShowMessage('Нет выделенных')
else
begin
for i:=0 to FileListBox1.Count-1 do
if FileListBox1.Selected[i] then
DoSome(FileListBox1.Items[i]);
end;
end;
 |
Ответ отправил: Вадим К (статус: Академик)
Время отправки: 22 июля 2008, 12:27
Оценка за ответ: 5
Комментарий к оценке: вопросы, чтоб привлечь внимание, спасиб, то что надо, совсем забыл про Selected[i]
|
Мини-форум вопроса
Мини-форум пуст.
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
