+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف استطيع حساب عدد العناصر او عدد الملفات داخل ملف (/showthread.php?tid=5033)
كيف استطيع حساب عدد العناصر او عدد الملفات داخل ملف - NOURI - 17-03-2013
كيف استطيع حساب عدد العناصر او عدد الملفات داخل ملف
كيف استطيع حساب عدد العناصر او عدد الملفات داخل ملف - لؤي - 18-03-2013
nouri كتب :كيف استطيع حساب عدد العناصر او عدد الملفات داخل ملفالسلام عليكم
هل تقصد مجلد أم ماذا ؟
كيف استطيع حساب عدد العناصر او عدد الملفات داخل ملف - NOURI - 18-03-2013
نعم هذا ما اقصده افدنا جزاك الله خير
كيف استطيع حساب عدد العناصر او عدد الملفات داخل ملف - SMP3 - 18-03-2013
السلام عليكم
PHP كود :
function GetFileCount(Dir : String):Integer;
var SR :TSearchRec;
begin
Result:=0;
Dir:=IncludeTrailingBackslash(Dir)+'*.*';
if FindFirst(Dir,faAnyFile,SR)=0 then
begin
repeat
if (SR.Attr <> faDirectory )then
Inc(Result);
until FindNext (SR) <>0;
end;
end;
كيف استطيع حساب عدد العناصر او عدد الملفات داخل ملف - NOURI - 18-03-2013
بارك الله فيك لكن الكود لا يحسب الملفات الموجود داخل المجلد
اقصد les sous repertoire
كيف استطيع حساب عدد العناصر او عدد الملفات داخل ملف - SMP3 - 19-03-2013
PHP كود :
procedure FindFiles(FilesList: TStringList; StartDir, FileMask: string);
var
SR: TSearchRec;
DirList: TStringList;
IsFound: Boolean; i: integer;
begin
if StartDir[length(StartDir)] <> '\' then
StartDir := StartDir + '\';
IsFound :=
FindFirst(StartDir+FileMask, faAnyFile-faDirectory, SR) = 0;
while IsFound do begin
FilesList.Add(StartDir + SR.Name);
IsFound := FindNext(SR) = 0;
end;
FindClose(SR);
DirList := TStringList.Create;
IsFound := FindFirst(StartDir+'*.*', faAnyFile, SR) = 0;
while IsFound do begin
if ((SR.Attr and faDirectory) <> 0) and
(SR.Name[1] <> '.') then
DirList.Add(StartDir + SR.Name);
IsFound := FindNext(SR) = 0;
end;
FindClose(SR);
for i := 0 to DirList.Count - 1 do
FindFiles(FilesList, DirList[i], FileMask);
DirList.Free;
end;
PHP كود :
var
FilesList: TStringList;
begin
FilesList := TStringList.Create;
try
FindFiles(FilesList, 'C:\Users\', '*');
//ListBox1.Items.Assign(FilesList);
Caption := 'Files Counts: ' + IntToStr(FilesList.Count);
finally
FilesList.Free;
end;