Проверка файлов!!! [D5, WinME]
GOD © (2002-10-31 02:17:00)
Я задавал этот вопрос,был ответ FindNext,FindFirst но что
делать
с ними я не понял!!!
Итак мне нужно, чтобы прога проверяла на размер все файлы!!!
Если можно, то подробнее!!!
Fancy (2002-10-31 03:08:00) [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, какие проблемы ?
:-)))
Наверх 
ЧАТ |
Орешник |
|
