Немножко в KOLLISTBOX ;)

← →
WhiteGuy © (2005-02-10 14:34) [0]

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

← →
MTsv DN (2005-02-10 16:54) [1]

Привет...

Типа такого вопроса уже было, сам задавал...
Посмотри тему: http://delphimaster.net/view/11-1106905612/

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

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

← →
SPeller © (2005-02-10 16:55) [2]

От того что в opendialog стоит multiselect, в комбобоксе ничего не изменится. Это как стучать молотком в стену чтобы чайник закипел.

← →
thaddy (2005-02-10 18:38) [3]

My mp3 player sourcecode shows how to do multiselect. If it seems to complex email me for a smaller example. it is not difficult.

← →
z007 (2005-02-10 23:25) [4]

Так и задумано:

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

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

← →
WhiteGuy © (2005-02-12 10:50) [5]

2
> MTsv DN (10.02.05 16:54) [1]

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

← →
MTsv DN (2005-02-12 11:32) [6]

Привет...
Вот рабочий код:
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

Большое СпАсИбО! ;-D

← →
Лёля (2005-02-12 22:47) [8]

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

Спасибо!

Немножко в KOLLISTBOX ;) Найти похожие ветки