Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 18.12.2008, 21:18   #1
littlecoder
Пользователь
 
Аватар для littlecoder
 
Регистрация: 01.11.2008
Сообщений: 51
Вопрос Помогите разобраться.

Есть некая процедура :
procedure ScanDir(StartDir: string; Mask: string; List: TStrings);
var
SearchRec: TSearchRec;
begin
if Mask = '' then
Mask := '*.*';
if StartDir[Length(StartDir)] <> '\' then
StartDir := StartDir + '\';
if FindFirst(StartDir + Mask, faAnyFile, SearchRec) = 0 then
begin
repeat Application.ProcessMessages;
if (SearchRec.Attr and faDirectory) <> faDirectory then
List.Add(StartDir + SearchRec.Name)
else if (SearchRec.Name <> '..') and (SearchRec.Name <> '.')thenbegin
List.Add(StartDir + SearchRec.Name + '\');
ScanDir(StartDir + SearchRec.Name + '\', Mask, List);
end;
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Items.Clear;
ScanDir('c:', '', ListBox1.Items);
Label1.Caption := IntToStr(ListBox1.Items.Count);
end;

Как мне записать все значения в StringList, а потом каждую строку использовать как путь для открытия файла(Думаю использовать Win Api, будет оптімальнім вариантом для открытия файлов? ).
(Функция создает список всех файлов в каталоге.)
Самый лучший компьютер, к тому же единственный, который можно производить в большом количестве с помощью неквалифицированного труда, — это человек.
littlecoder вне форума
Старый 18.12.2008, 22:46   #2
littlecoder
Пользователь
 
Аватар для littlecoder
 
Регистрация: 01.11.2008
Сообщений: 51
По умолчанию

Ну вообще, лучше скажите , как из StringList кожную строку считать (отдельно) ибо это адреса файлов. Жду предложений.
Самый лучший компьютер, к тому же единственный, который можно производить в большом количестве с помощью неквалифицированного труда, — это человек.
littlecoder вне форума
Старый 18.12.2008, 22:55   #3
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

У вас, наверное, встроенный хэлп сломался?
Вроде там и примеров полно...
ListBox1.Selected[i]
ListBox1.Items.Strings[i]
Или просто скучно?
mihali4 вне форума
Старый 19.12.2008, 01:14   #4
littlecoder
Пользователь
 
Аватар для littlecoder
 
Регистрация: 01.11.2008
Сообщений: 51
По умолчанию

Всё , освоил.
Самый лучший компьютер, к тому же единственный, который можно производить в большом количестве с помощью неквалифицированного труда, — это человек.
littlecoder вне форума
Старый 21.12.2008, 20:22   #5
littlecoder
Пользователь
 
Аватар для littlecoder
 
Регистрация: 01.11.2008
Сообщений: 51
Вопрос

Цитата:
Сообщение от littlecoder Посмотреть сообщение
Всё , освоил.
А, нет поспешил .
ВОт сотрите :
ScanDir('c:\', '', ListBox1.Items);
Как мне добавлять записи не в Listbox, а в Stringlis ?
Думал так :
//////////////
procedure TForm1.Button1Click(Sender: TObject);
begin
StringList1 := TStringList.Create;
StringList1.AddObject('имя', TSTringList.Create);
TempStringList := TStringList(StringList1.Objects[0]);
ScanDir(ShellTreeview1.path, '', TempStringList.Add);
end;
////////
Подскажите , как результат ScanDir добавлять в Stringlist.
А потом сделать цикл
по добавлению каждой из строк (поотдельности)
тоисть ...
Memo1.Lines.Loadfrom???(А сюда прописать цыкл добавления строк из Stringlist).
Самый лучший компьютер, к тому же единственный, который можно производить в большом количестве с помощью неквалифицированного труда, — это человек.
littlecoder вне форума
Старый 21.12.2008, 20:30   #6
Квэнди
Старожил
 
Аватар для Квэнди
 
Регистрация: 13.12.2006
Сообщений: 3,859
По умолчанию

автору предупреждение за название темы, уже 31 сообщение, пора научиться.
закрыто.
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи
Квэнди вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
помогите разобраться Tanuska___:) БД в Delphi 1 04.09.2008 14:56
Помогите разобраться! Holodok Помощь студентам 12 02.05.2008 18:13
помогите разобраться!) Юliana Помощь студентам 1 30.01.2008 01:16
помогите разобраться ара Помощь студентам 13 05.12.2007 17:50