| Цитата |
Не ну такой лёгкий был вопрос! А Вы тут нафлудили так...
|
Если легкий - чего сам не решил? 
| Цитата |
Допустим есть кнопка Х, как сделать так, чтобы при нажатии на неё она проверяла диск С: по названием и весу, указаннаму в базе baza.txt вида №:nazvanie:ves-kb1:ves-kb2
(Номер:название:вес не менее и не более).
В совершенстве - если диск можно менять...
|
Ты хочешь, чтобы тебе написали готовую функцию? Тогда тебе в раздел "Работа"... Тут только "наставляют на путь", а не решают за тебя задачи. Если выглядит грубо - пойми, у каждого из форумчан есть свои работа, семья, заботы, хоби, любимые и т.д. Никто не будет что-то делать за тебя.
А по поводу заданного вопроса - тут как-раз все просто. Рекурсивный обход диска с проверкой размера файла. Вот только если ты не знаешь рекурсии - думаю, ты долго будешь решать эту задачу. Вот тебе наброски:
| Код |
procedure ScanDir(Dir: string);
var
SearchRec: TSearchRec;
begin
if Dir <> '' then
if Dir[length(Dir)] <> '\' then
Dir := Dir + '\';
if FindFirst(Dir + '*.*', faAnyFile, SearchRec) = 0 then
repeat
if (SearchRec.name = '.') or (SearchRec.name = '..') then continue;
if (SearchRec.Attr and faDirectory) <> 0
then ScanDir(Dir + SearchRec.name)
else Showmessage(Dir + SearchRec.name);
until
FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;
|
Это рекурсивный обход диска. Использовать:
| Код |
procedure TForm1.Button1Click(Sender: TObject);
begin
ScanDir('c:');
end;
|
Проверку размера можно встроить в код выше:
| Код |
var
Size: Int64;
...
Size := SearchRec.FindData.nFileSizeHigh * 4294967296 + SearchRec.FindData.nFileSizeLow;
|
Примеры кодов не мои! Их даже искать не надо - выложены на каждом углу!!! |
)
