Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.07.14;
Скачать: CL | DM;

Вниз

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

 
nsvi   (2002-11-07 15:32) [0]

Нужно осуществить множественный выбор файлов и их список засунуть в ListBox. В VСL это делаю так:
if OpenDialog1.Execute then
ListBox1.Items.Assign(OpenDialog1.Files);
В MSK так не получается, получается только по одному, хотя в диалоге разрешен выбор нескольких файлов:
if OpenSaveDialog1.Execute then
ListBox1.Add(OpenSaveDialog1.FileName);
Если оставишь так, то записывает все файлы в одну строку, поставишь OpenSaveDialog1.Files, то ругается. Ставишь ListBox1.AddStrings - тоже.
А как надо?


 
Gandalf   (2002-11-07 16:22) [1]

Скажем так, первая строка - каталог! Возможно не лучше решение.
var
tmp:String;
p:Integer;
begin
if OpenSaveDialog1.Execute then
begin
tmp:=OpenSaveDialog1.FileName;
while True do
begin
p:=pos(#13,tmp);
if p<>0 then
begin
ListBox1.Add(Copy(tmp,1,p-1));
delete(tmp,1,p);
end
else
begin
ListBox1.Add(tmp);
Break;
end;
end;
end;
end;


 
nsvi   (2002-11-08 05:21) [2]

Благодарю за ответ!
Я надеялся, что не надо разбивать строку списка файлов, а существует свойство у ListBox, позволяющее сразу вставить список Strings, а не разбивать его на составляюшие, а у OpenSaveDialog свойство Files, содержащее также Strings, а не одну строку String.
Ну чтоже, придется разбивать строку на составляющие.



Страницы: 1 вся ветка

Текущий архив: 2003.07.14;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.018 c
3-44577
corte ™
2003-06-20 12:54
2003.07.14
Всем привет никто ни незнает как вернуть из Хран.Проц. в MSSQL


3-44553
Balu
2003-06-19 19:17
2003.07.14
Помогите разобраться с кодировкой


1-44733
Andrew_p
2003-06-27 17:55
2003.07.14
Как изменить в приложении главное окно на другое


14-44885
Скорбящий
2003-06-27 16:42
2003.07.14
Хармс отдыхает...


3-44576
KSergey
2003-06-13 13:35
2003.07.14
TDataSet в режиме редактирования и исключение