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

Вниз

Проверка файлов!!!   Найти похожие ветки 

← →
GOD ©   (2002-10-31 02:17) [0]

Я задавал этот вопрос,был ответ FindNext,FindFirst но что делать
с ними я не понял!!!
Итак мне нужно, чтобы прога проверяла на размер все файлы!!!
Если можно, то подробнее!!!

---

← →
Fancy ©   (2002-10-31 03:08) [1]

Есть такая крутая фишка
набираешь FindFirst и нажимаешь <F1>
а там есть зелененький Example
еще один клик мышью и ...... о-о-о-о :-)

var
SearchRec: TSearchRec;
procedure TForm1.SearchClick(Sender: TObject);
begin
FindFirst("c:\Program Files\delphi4\bin\*.*", faAnyFile, SearchRec);
Label1.Caption := SearchRec.Name + " is " + IntToStr(SearchRec.Size) + " bytes in size";
end;
procedure TForm1.AgainClick(Sender: TObject);
begin
if (FindNext(SearchRec) = 0)
Label1.Caption := SearchRec.Name + " is " + IntToStr(SearchRec.Size) + " bytes in size";
else
FindClose(SearchRec);
end;

правда это для D4 (в D5 другой пример),
ну поставь себе D4, какие проблемы ? :-)))

---

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

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

Наверх

Память: 0.46 MB
Время: 0.018 c