Множественная загрузка файлов

[Artem]

Как работать с множественной загрузкой файлов в TOpenDialog. Например, как вывести имена всех выбранных файлов в поле Memo????

[mutabor]

opendialog1.multiselected:=true;
имена содержатся в свойстве Files

[Alex21]

opendialog1.Options:=[ofOverwritePrompt,ofAllowMultiSelect,ofEnableSizing];
if opendialog1.Execute then
  begin
   memo1.Lines.Add(opendialog1.Files.Text);
  end;

Не успел

[Artem]

Всем спасибо!!!
Alex21, ничего страшного) Ты мне тоже помог!

[mutabor]

Я кстати первый раз неправильно написал
Надо вот так

procedure TForm1.FormCreate(Sender: TObject);
begin
opendialog1.Options:=opendialog1.Op tions+[ofAllowMultiSelect];
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if opendialog1.Execute then memo1.Lines:=opendialog1.Files;
end;

[Pitbull]

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

Как работать с множественной загрузкой файлов в TOpenDialog. Например, как вывести имена всех выбранных файлов в поле Memo????

Устанавливаешь свойство openDialog1 - Options->ofAllowMultiSelect:=true
. Это типа выделения множества файлов....
А потом :

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Memo1.Clear;
if opendialog1.Execute then
Memo1.Lines.AddStrings (openDialog1.Files);
end;

[Pitbull]

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

Я кстати первый раз неправильно написал
Надо вот так

procedure TForm1.FormCreate(Sender: TObject);
begin
opendialog1.Options:=opendialog1.Op tions+[ofAllowMultiSelect];
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if opendialog1.Execute then memo1.Lines:=opendialog1.Files;
end;

По-моему, опять ты неправильно написал =) if opendialog1.Execute then memo1.Lines.AddStrings (openDialog1.Files); Вот так....
Просто в твоем примере добавится только одно имя.... А ему нужно ,чтобы все....

[Pitbull]

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

Я кстати первый раз неправильно написал
Надо вот так

procedure TForm1.FormCreate(Sender: TObject);
begin
opendialog1.Options:=opendialog1.Op tions+[ofAllowMultiSelect];
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if opendialog1.Execute then memo1.Lines:=opendialog1.Files;
end;

Приношу извинения.... =) сорри

[Alex21]

И ведь, никто не подскажет сделать так:

memo1.WordWrap:=false;

P.S.: выключаем авто перенос строк в мемо.

[Pitbull]

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

И ведь, ни кто не подскажет сделать так:

memo1.WordWrap:=false;

P.S.: выключаем авто перенос строк в мемо.

ага...