لیست فایلهای موجود در یک دایرکتوری بهمراه اندازه فایل

[FirstLine]

با سلام
در دلفی چجوری میتوان لیست تمام فایلهای موجود بهمراه اندازه فایل در یک دایرکتوری را در یک گرید نمایش داد؟
با تشکر

[Delphi-Clinic]

این کد لیست فایلهای درون یک دایرکتوری را به شما نشان می دهد.


var
SearchRec: TSearchRec;
begin
if FindFirst('C:\WINDOWS\*.BMP',0, SearchRec) = 0 then
repeat
CheckListBox2.Items.Add(SearchRec.name);
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;


این تابع نام فایل را گرفته و سایز فایل را به شما نشان می دهد:


function GetFileSizeByName(const Filename: string): longInt;
var
F: File;
begin
AssignFile(F, Filename);
Reset(F,1);
result:=FileSize(F);
CloseFile(F);
end;