VPF::Получить в стринглист пути до файлов

0LineGate

Дата 29.7.2007, 04:29 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 176
Регистрация: 17.2.2007
Где: Россия, Тула

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

мб разделом ошибся, но всё-таки хотелось бы узнать... каким образом можно просканировать папку на наличие файлов n-ного типа, и получить в стринглист пути до этих самых файлов... надеюсь я правильно сформулировал вопрос и меня поняли! smile

W1zArD

Дата 29.7.2007, 05:20 (ссылка)

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

Загрузка ...

Опытный

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

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

Код


procedure Search;
var 
sr:TSearchRec;
s:TStringList;
begin
s:=TStringList.Create;
if FindFirst('c:\windows\*.exe', sr, faAnyFile-faDirectory) = 0 then//ищем файлы с расш. exe
repeat
s.Add(ExtraceFilePath(sr.Name);
until FindNext(sr)<>0;
end;

по мойму так... =\ у меня в голове бардак (с изучением C#)

0LineGate

Дата 29.7.2007, 05:42 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 176
Регистрация: 17.2.2007
Где: Россия, Тула

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

опечаток много...

немного переделал:

Код


procedure Search;
var
sr:TSearchRec;
begin
if FindFirst('E:\ФИЛЬМЫ\*.avi', faAnyFile, sr) = 0 then
repeat
Form1.Memo1.Lines.Add((ExtractFilePath(sr.Name)))
until FindNext(sr)<>0;
end;

и после этого в мемо добавляются не пути к файлам а просто пустота...
странно, однако... мб я что-то путаю?..

Добавлено через 2 минуты и 59 секунд

Цитата(W1zArD @ 29.7.2007, 05:20)

Код


procedure Search;
var 
sr:TSearchRec;
s:TStringList;
begin
s:=TStringList.Create;
if FindFirst('c:\windows\*.exe', sr, faAnyFile-faDirectory) = 0 then//ищем файлы с расш. exe
repeat
s.Add(ExtraceFilePath(sr.Name);
until FindNext(sr)<>0;
end;

по мойму так... =\ у меня в голове бардак (с изучением C#)

всё, спасибо, держи +
просто напросто ExtractFilePath здесь ни к чему smile

Yanis

Дата 29.7.2007, 09:14 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

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

Можно и не париться, когда всё сделано за тебя smile

Код

var
  s: string;
begin
  s := 'C:\Windows\*.exe';
  with ListBox1 do
    begin
      Clear;
      Items.BeginUpdate;
      Perform(LB_DIR, DDL_READWRITE, Integer(@s[1]));
      Items.EndUpdate;
    end;
end;

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

*щёлк*

MetalFan

Дата 29.7.2007, 12:57 (ссылка)

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

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

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

в случае с FindFirst не забывать FindClose!!!

Yanis, а если нет ListBox'a?

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

There are always someone smarter than you...

Yanis

Дата 29.7.2007, 13:30 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

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

Цитата(MetalFan @ 29.7.2007, 13:57

)

Yanis, а если нет ListBox'a?

То использовать другой способ. Например обсуждаемый.
Или создавать ListBox в run-time.

Это сообщение отредактировал(а) Yanis - 29.7.2007, 13:31

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

*щёлк*

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