VPF::добавлние в listbox - Форум программистов

Darkmaster

Дата 5.12.2005, 14:25 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 148
Регистрация: 22.11.2005

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

мне нужно чтобы из opendiаlog'a в ListBox можно было добавить сразу несколько файлов , а не один , как это сделать? свойство ofAllowMultiSelect у меня в true? Подскажите пожалуйста способ.

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

GeekTV - интернет-телевидение для гиков

_hunter

Дата 5.12.2005, 15:46 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

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

Цитата

void __fastcall TForm1::Button1Click(TObject *Sender)

{
FILE *stream;
char FirstLine[512];

OpenDialog1->Options.Clear();
OpenDialog1->Options << ofAllowMultiSelect << ofFileMustExist;
OpenDialog1->Filter = "Text files (*.txt)|*.txt|All files (*.*)|*.*";
OpenDialog1->FilterIndex = 2; // start the dialog showing all files
if (OpenDialog1->Execute())
{
for (int I = 0; I < OpenDialog1->Files->Count; I ++)
{
stream = fopen(OpenDialog1->Files->Strings[I].c_str(), "r");

if (stream)
{
// read the first line from the file
fgets(FirstLine, sizeof(FirstLine), stream);
Memo1->Lines->Append(FirstLine);
fclose(stream);
}
}
}
}

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

Tempora mutantur, et nos mutamur in illis...

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