файлы

← →
Olga_Oo (2003-11-21 10:16) [0]

здраствуйте мастера....у меня есть путь c:\files он не изменый....а в нем папки причем какие я низаю...вопросик...как мне програмно узнать какие там папки?

← →
stone (2003-11-21 10:19) [1]

см. справку по FindFirst, FindNext. Там и пример есть

← →
zapped (2003-11-21 10:19) [2]

FindFirst

← →
han-bratan (2003-11-21 10:22) [3]

http://www.han-bratan.narod.ru/hl/source/hlFindFile.pas.html

← →
Olga_Oo (2003-11-21 10:26) [4]

> stone
да я читала...тока мало че понела....может поможите примерчиком?....

← →
Reindeer Moss Eater (2003-11-21 10:30) [5]

Логика типа.
Пример от Борланда не подошел.
Пример местный подойдет.

← →
Olga_Oo (2003-11-21 10:31) [6]

>
> Reindeer Moss Eater
да....просто кто действительно хочет помочь то еще и коментарии на русском ставит а если даже после этого не понятно то множно спросить что бы расказал по подробнее....:P

← →
Reindeer Moss Eater (2003-11-21 10:33) [7]

Тоже логика.
Нужны комментарии к примеру, а просим еще один пример.

← →
Anatoly Podgoretsky (2003-11-21 10:36) [8]

Примеры есть в местном чаво, ну и конечно в других местах, включая справку. Может быть конкретнее вопрос, что именно непонятно?

← →
Olga_Oo (2003-11-21 10:43) [9]

Удалено модератором

← →
Плохиш_ (2003-11-21 10:45) [10]

Удалено модератором

← →
Palladin (2003-11-21 10:47) [11]

> Olga_Oo (21.11.03 10:43) [9]

Процедурка написана, осталось ее найти в общеизвестных местах.

← →
Olga_Oo (2003-11-21 10:51) [12]

> Palladin
я глупая...не могу....найти...а вам че трудно взять скопировать их общеизвестных мест и вставить сюда?

← →
Reindeer Moss Eater (2003-11-21 10:54) [13]

The following example uses an edit control, a button, a string grid, and seven check boxes. The check boxes correspond to the seven possible file attributes. When the button is clicked, the path specified in the edit control is searched for files matching the checked file attributes. The names and sizes of the matching files are inserted into the string grid.

procedure TForm1.Button1Click(Sender: TObject);

var
sr: TSearchRec;
FileAttrs: Integer;
begin
StringGrid1.RowCount := 1;
if CheckBox1.Checked then
FileAttrs := faReadOnly
else
FileAttrs := 0;
if CheckBox2.Checked then
FileAttrs := FileAttrs + faHidden;
if CheckBox3.Checked then
FileAttrs := FileAttrs + faSysFile;
if CheckBox4.Checked then
FileAttrs := FileAttrs + faVolumeID;
if CheckBox5.Checked then

FileAttrs := FileAttrs + faDirectory;
if CheckBox6.Checked then
FileAttrs := FileAttrs + faArchive;
if CheckBox7.Checked then

FileAttrs := FileAttrs + faAnyFile;

if FindFirst(Edit1.Text, FileAttrs, sr) = 0 then

begin
with StringGrid1 do
begin
if (sr.Attr and FileAttrs) = sr.Attr then
begin
Cells[1,RowCount-1] := sr.Name;
Cells[2,RowCount-1] := IntToStr(sr.Size);
end;
while FindNext(sr) = 0 do
begin
if (sr.Attr and FileAttrs) = sr.Attr then
begin
RowCount := RowCount + 1;
Cells[1, RowCount-1] := sr.Name;

Cells[2, RowCount-1] := IntToStr(sr.Size);
end;
end;
FindClose(sr);
end;
end;
end;

← →
Olga_Oo (2003-11-21 10:57) [14]

> Reindeer Moss Eater
:))))) пасиб...так вот вопрос...сделала я этот пример и что получается??? вожу в edit1 log.txt (такой файл у меня точно есть на C:\log.txt) он его не видит...а вот если я в edit1 введу полный путь c:\log.txt то тогда все ок.....мне это не подходит!!!

← →
Reindeer Moss Eater (2003-11-21 11:00) [15]

Не подходит когда все ок?
Тогда вводи log.txt

← →
Olga_Oo (2003-11-21 11:04) [16]

> Reindeer Moss Eater
блин или я дурочка или вы все...;))))(тока тихо ответ я знаю...;)) так вот мне нужна программа!!!!(кричит) что бы там было метка в нее я ввожу путь допустим c:\film...так?! а она мне допустим в мемо выводит что этой папке есть 7 папока с такими то названиями!!! вот!

← →
Reindeer Moss Eater (2003-11-21 11:05) [17]

if FindFirst("C:\"+Edit1.Text, FileAttrs, sr) = 0 then

← →
Olga_Oo (2003-11-21 11:06) [18]

Удалено модератором

← →
Olga_Oo (2003-11-21 11:08) [19]

ладненько с файлами понятно а вот что мне надо не файлы искать а папки че в таком случае делать?

← →
Reindeer Moss Eater (2003-11-21 11:10) [20]

Удалено модератором

← →
Olga_Oo (2003-11-21 11:11) [21]

> Reindeer Moss Eater
извени я не программист я тебя не понимаю...:)

← →
han_malign (2003-11-21 11:11) [22]

> такой файл у меня точно есть на C:\log.txt
- а если у тебя будет еще - c:\dummy\log.txt, d:\log.txt, "j:\Чтож я маленьким не здох\log.txt" - интересно как система должна угадать в какой из них ваш log.txt???

> ... надо не файлы искать а папки ...
см. Reindeer Moss Eater © (21.11.03 10:54) [13]
......
if CheckBox5.Checked then
FileAttrs := FileAttrs + faDirectory;
......

З.Ы. Судя по великому и могучему, на котром разговаривал Ленин, и по нику - либо девушки вконец офеменели, либо трансвеститы окончательно распоясались...

← →
Olga_Oo (2003-11-21 11:14) [23]

Удалено модератором

← →
Reindeer Moss Eater (2003-11-21 11:17) [24]

Удалено модератором

← →
Reindeer Moss Eater (2003-11-21 11:18) [25]

Удалено модератором

← →
Olga_Oo (2003-11-21 11:18) [26]

Удалено модератором

← →
han_malign (2003-11-21 11:27) [27]

Удалено модератором

← →
Olga_Oo (2003-11-21 11:27) [28]

Удалено модератором

← →
Olga_Oo (2003-11-21 11:28) [29]

Удалено модератором

← →
PVOzerski (2003-11-21 11:31) [30]

1) 1. Разберитесь с понятием File attributes, в том числе применительно к FindFirst - сразу полегчает.
2) Модераторам - как насчет того, чтобы ветку - в "орешник"? Я скорее "за", хотя есть и сомнения...

← →
han_malign (2003-11-21 11:34) [31]

> а что бы вывело все папке
- еще раз
см. Reindeer Moss Eater © (21.11.03 10:54) [13]
......
if CheckBox5.Checked then
FileAttrs := FileAttrs + faDirectory;
......
if (sr.Attr and FileAttrs) = sr.Attr then
begin
RowCount := RowCount + 1;
Cells[1, RowCount-1] := sr.Name;

Cells[2, RowCount-1] := IntToStr(sr.Size);
end;

- соответственно Checked должен быть только CheckBox5.

← →
panov (2003-11-21 11:37) [32]

← →
Anatoly Podgoretsky (2003-11-21 11:39) [33]

http://podgoretsky.com/ftp/Language/nps/ru.delphi.html#N158, строка вызова ScanDir(Dir + SR.Name) это и есть нужное тебе место. Кроме того на указаном сайте есть и отдельный компонент DirScan, правда немного старый, но можно подогнать под свои нужды.

← →
BlackTiger (2003-11-21 12:13) [34]

>Olga_Oo (21.11.03 11:28) [29]

>Удалено модератором

Нда-а-а, народ, и это ДЕВУШКА!!! Мужики столько не ругаются...

← →
Anatoly Podgoretsky (2003-11-21 12:14) [35]

Мы ей слова она нам два :-)

← →
REA (2003-11-21 12:16) [36]

Разговор слепого и глухого...

← →
Юрий Зотов (2003-11-21 12:19) [37]

Да бросьте вы, какая там девушка?
Перечитайте ветку - чистая разводка.

← →
BlackTiger (2003-11-21 12:21) [38]

Напоминает мне это одного товарисча, который тут пытался "знаний набраться"... Достал тогда всех вконец, может кто помнит? Там тоже было, "в огороде бузина, а в Киеве - дядька".

Расскажите этой "девушке", что такое рекурсивный перебор, и рекурсия в частности (или наоборот). А будет матом ругаться - пусть идет в лес, по грибы-ягоды.

файлы Найти похожие ветки