Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 1 779

/ вопрос открыт /

Доброго времени суток, уважаемые эксперты!
у меня такой вопрос, я использую TFileListBox, в нем я выбираю несколько файлов одновременно, после этого нужно считывать их содержимое. Каким методом или свойством можне переходить от первого выделенного файла к последниму или как этот компанент определяет какие файл выделены? какой последний параметр передать функции Assignfile?

Приложение:
  1. begin
  2. AssignFile(F,form1.FileListBox1.FileName??????????);
  3. Reset(F);
  4. while Not SeekEof(F) do begin
  5. Setlength(Dict,i+1);
  6. readln(F,Dict[i]);
  7. i:=i+1;
  8. end;
  9. Closefile(f);
  10. i:=0;
  11. while i<length(dict) do begin
  12. Listbox1.Items.text:=Listbox1.Items.text+dict[i];
  13. i:=i+1;
  14. end;
  15. j:=j+1;
  16. end;


Stepani4 Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: 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]

Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 25 ноября 2017, 12:19
Выполнено за 0.04 сек.
Рейтинг@Mail.ru