الملفات داخل المجلد

حسنا لقد أعدت لك هذا .. جربه , وتأكد من صحة النتيجة

Function GetFilecount : integer;
var
 sFilePattern:string;
    SR : TSearchRec;
    i:integer;
    Begin
sFilePattern := 'c:\*.*';
i := 0;
if FindFirst(sFilePattern,faAnyFile,SR) = 0 then
    Begin
   i:=i+1;
    while FindNext(sr) = 0 do
  i:=i+1
    End;
result := i;
End;

إذا أردت أسماء الملفات :

Function GetfileList : String;
var
 sFilePattern:string;
    SR : TSearchRec;
    S : String;
Begin
sFilePattern := 'c:\*.*';
S := '';
if FindFirst(sFilePattern,faAnyFile,SR) = 0 then
    Begin
    s := SR.Name;
    while FindNext(sr) = 0 do
        s := s + ',' + SR.Name;
    End;
result := s;
End;

كإضافة بسيطة لكود اخي عروة

إذا اردت فقط إظهار رقم الملفات بدون المجلدات غير السطر التالي

if FindFirst(sFilePattern,faAnyFile,SR) = 0 then

الى

if FindFirst(sFilePattern,faAnyFile - faDirectory,SR) = 0 then

ايضا اعتقد ان عدد الملفات سوف يزيد بمقدار 2 لان مجلدي ('.' و '..') سوف يتم اضافتهم في حالة عدم استثناء المجلدات

صحيح

طريقة جميلة وبسيطة من اخي عروة بدون api

كنت استعمل هي عادة ( الانسان شو بيحب يلبك حاله )

function FileCount(const aFolder: string): Integer;
var
  H: THandle;
  Data: TWin32FindData;
begin
  Result := 0;
  H := FindFirstFile(PCHAR(aFolder + '*.*'), Data);
  if H <> INVALID_HANDLE_VALUE then
    repeat
      Inc(Result, Ord(Data.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY = 0));
    until
      not FindNextFile(H, Data);
  Windows.FindClose(H);
end;

أهلا ومية مرحبا بأخي reda ... ؟؟؟

وينك من زمان يا رجل , والله إلك وحشة

يالله رضا .. لازمنا دعم للمنتدى , وأنت طيب وما بتقصر (ولا شو ؟؟ )

اهلا اخي عروة

رجعت للبرمجة على دلفي قبل فترة ليست بطويلة (شي شهر )

وحاليا بعمل مشروع Pos (Point of Sale

صارلي شي شهر مبلش فيه

FireBird +Delphi

إن شاء الله بحاول اتواجد بالمتندى دائما بالفترة الجاي

كونه تطورنا صار في عنا كهربا !

ومدينا انترنت من كم يوم :D

الله عالأخبار الحلوة ....

ألف مبروك الأنترنت والكهربا

ونحن سعداء جدا بعودتك

الف الف شكر اخوانى ORWA ومحمد نسمان وreda على الرد و الاهتمام ...هذا هو المطلوب تماما

:rolleyes: الحمدلله ان سؤالى وجهة خير على المنتدى بعودة reda :rolleyes:

جزاكم الله عنى كل الخير

تحياتي،،،