Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Немножко в KOLLISTBOX ;) [Delphi, Windows]

WhiteGuy © (2005-02-10 14:34:00)
Пипл!
Как добавить НЕСКОЛЬКО файлов в TKolListBox?
Есть ф-ция ListBox1.Add, но ею можно добавить только ОДИН файл независимо от того, включена в OpenDialog1 (откуда и нужно добавлять файлы) опция multiselect или нет! ПАМАГИТЕ! :)

WhiteGuy (2005-02-13 07:18:00) [1]
Спасибо!

Лёля (2005-02-12 22:47:00) [2]
В свойстве OpenSaveDialog.FileName хранится список файлов, ПРИЧЕМ: если выбран один файл - в первой (и единственной)строке хранится и имя, и полный путь к нему, но если файлов выбрано несколько, то в первой строке хранится только путь, а в остальных, соответственно, только имена. Так что здесь нужно проверять, сколько строк содержит PStrList, и если несколько, то
ListBox.Add(MyStrList[0]+MyStrList[i])
У меня это работает. Прошу прощения, что не кидаю пример, интернет не из дому.

WhiteGuy (2005-02-12 14:22:00) [3]
Большое СпАсИбО! ;-D

MTsv DN (2005-02-12 11:32:00) [4]
Привет...
Вот рабочий код:
if od.Execute then if od.Filename <> '' then begin _Files := NewStrList; _Files.Text := od.Filename; for i := 0 to _Files.Count - 1 do ListBox.Add(_Files.Items[i]); _Files.Free; end;
С Уважением MTsv DN

WhiteGuy (2005-02-12 10:50:00) [5]
2
> MTsv DN (10.02.05 16:54) [1]

Три дня я думал, в каком цикле добавлять файлы :). Но так и не понял :(. Подскажите пжалста!

z007 (2005-02-10 23:25:00) [6]
Так и задумано:

> Создаешь переменную PStrList,приравниваешь ее свойству Text
> значение OpenDialog1.FileName и потом в цикле добавляешь
> в TKolListBox.

см.: LB_ADDSTRING - ну, не предусмотрено здесь добавление нескольких строк.
зато есть LB_DIR,DlgDirList (WinApi) и ListBox1.DlgDirList- специально для файлов.

thaddy (2005-02-10 18:38:00) [7]
My mp3 player sourcecode shows how to do multiselect. If it seems to complex email me for a smaller example. it is not difficult.

SPeller (2005-02-10 16:55:00) [8]
От того что в opendialog стоит multiselect, в комбобоксе ничего не изменится. Это как стучать молотком в стену чтобы чайник закипел.

MTsv DN (2005-02-10 16:54:00) [9]
Привет...

Типа такого вопроса уже было, сам задавал...
Посмотри тему: http://www.delphimaster.ru/cgi-bin/forum.pl?id=1106905612&n=10

Когда включен multiselect, OpenDialog1.FileName в одну строчку с разделителем "#$D". Создаешь переменную PStrList,приравниваешь ее свойству Text значение OpenDialog1.FileName и потом в цикле добавляешь в TKolListBox.

С уважением MTsv DN

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »