VPF::Выбор группы файлов - Форум программистов

kwotz

Дата 16.3.2007, 17:59 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Awaiting Authorisation
Сообщений: 25
Регистрация: 6.1.2007
Где: Майкоп

Репутация: нет
Всего: нет

Мне нужно, что бы после открытия окна с названием "Выбор файла" можно было выбрать группу файлов, т.е. не один, а несколько и передать их пути вместе с названиями файлов в ListBox. Как это можно сделать? Как можно осуществить, чтобы при выборе файлов, отображались только файлы с расширением, например *.txt*?

Snowy

Дата 16.3.2007, 18:02 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

В опциях TOpenDialog выставь ofAllowMultiSelect

Alexeis

Дата 16.3.2007, 18:12 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Тут будут в списек не только *.txt , но *.doc думаю ясно как ограничить только для формата *.txt

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    dlgOpen1: TOpenDialog;
    lst1: TListBox;
    btn1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  dlgOpen1.Filter := 'текстовые|*.txt;*.doc';
  dlgOpen1.Options := dlgOpen1.Options + [ofAllowMultiSelect];


end;

procedure TForm1.btn1Click(Sender: TObject);
begin
  if dlgOpen1.Execute
  then
    BEgin
      lst1.Items.Assign(dlgOpen1.Files);
    end;
end;

end.

Это сообщение отредактировал(а) Alexeis - 16.3.2007, 18:13

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »