الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيفية جعل كمبو بوكس يحمل جميع اسماء المجلدات

بدأه rafaa في 30 ديسمبر 2008 · 8 رد · 959 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بســم الله الـرحمــن الرحيــم

كيف اجعل الكمبو بوكس يحمل اسماء المجلدات التي بجانبه وافي المجلد الذي اريد

للعلم ليس الملفات بل المجلدات فقط لاني اريد حفظ القائمة واستعراضها

#2

بإستعمال ال TSearchRec

عزيزي :

لاتنسى ان تصلي على حبيبنا و شفيعنا يوم لا ينفع مال ولا بنون .

فاللهمّ صّل وسّلم على سيدي و شفيعي وحبيبي محمد عليك الف صلاة وازكى تسليم

*****

2_header.png

#3

كيف؟ اخي 

الكود لو تكرمت 

#4

بســم الله الـرحمــن الرحيــم

implementation

{$R *.dfm}

uses  IniFiles;

Function GetDirFiles(iPath: String;var  iList: TStringList):integer;
Var
	Info   : TSearchRec;
	str:string;
begin
  iList.Clear;
  If FindFirst(iPath+'*.*',faAnyFile,Info)=0 Then
  Begin
	Repeat
	str:=Info.FindData.cFileName;
	if Info.FindData.cFileName[0]<>'.' then
	begin
		 if (Info.Attr And faDirectory)<>0 then
			 iList.Add(str);
	end;
	Until FindNext(Info)<>0;
	//FindClose(Info.FindHandle);
  End;
end;


procedure TForm5.Button1Click(Sender: TObject);
var
	vList: TStringList;
begin
	vList:= TStringList.Create;
	TRY
	  GetDirFiles('C:\c_backap\',vList);//  ListBox1.Items.Text:=vList.Text;
	FINALLY
	   vList.Free;
	END;
end;

end.
#5

شكرا لك كثيرا استاذنا الغالي زكريا بارك الله فيك

وفقك الله وجعل لك بكل حرف حسنة

#6

اخي عبد العالي لماذا هذا uses IniFiles هل نسيته :wink:

تم تعديل هذه المشاركة بواسطة mohfa في 31 ديسمبر 2008 في 11:54

عزيزي :

لاتنسى ان تصلي على حبيبنا و شفيعنا يوم لا ينفع مال ولا بنون .

فاللهمّ صّل وسّلم على سيدي و شفيعي وحبيبي محمد عليك الف صلاة وازكى تسليم

*****

2_header.png

#7

:yes:

#8

الحمد لله نجح المثال معي

شكرا لكم جميعا

مع الاستاذ زكيري لا نظل ولا نشقى ابدا ان شاء الله

تم تعديل هذه المشاركة بواسطة rafaa في 2 يناير 2009 في 12:39

#9

محاولة بسيطة مع امكانية استخراج اسماء الملفات و المجلدات

  1.  
  2. Function GetFilOrDir(Path:String; FilOrDir:Integer):TStringList;
  3. var
  4.    Str:String;
  5.    SearchRec:TSearchRec;
  6. begin
  7.  Result:=TStringList.Create;
  8.  if FilOrDir > 1  then
  9.   begin
  10.     ShowMessage('0 Or 1');
  12.   end;
  13.  if FindFirst(Path+'*.*',faAnyFile,SearchRec)=0 then
  14.   while (FindNext(SearchRec)=0)do
  15.    begin
  16.     Str:= SearchRec.Name;
  17.     if FilOrDir = 0 then
  18.       begin
  19.        if Pos('.',str)=  0 then
  20.         Result.Add(Str);
  22.     else
  23.        if FilOrDir = 1 then
  24.        if Pos('.',str)<> 0 then
  25.         Result.Add(Str);
  26.    end;
  27.   FindClose(SearchRec);
  29.  
Dir
  1.  
  2. lst1.Items.CommaText:=GetFilOrDir('d:',0).CommaText;
  3.  
File
  1.  
  2.  lst1.Items.CommaText:=GetFilOrDir('d:',1).CommaText;
  3.  

و هذا مثال يحتوي علي بعض الاضافات والاخطاء .
sanstitrepq7.jpg
Dir_Fil.rar

      
      

      
    

  

    
    
    
 مواضيع مشابهة





  

    
عدد الزوار حالياً
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

    
—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

    
جارٍ التحقق من المتواجدين…