+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف اجعله يبحث في جميع الاماكن (/showthread.php?tid=953)
كيف اجعله يبحث في جميع الاماكن - houssin - 11-06-2009
كيف اجعله يبحث في جميع الاماكن
كود :
var
searchResult : TSearchRec;
begin
if FindFirst(edit1.txt, faAnyFile, searchResult) = 0 then
begin
repeat
ShowMessage('File name = '+searchResult.Name);
ShowMessage('File size = '+IntToStr(searchResult.Size));
until FindNext(searchResult) <> 0;
FindClose(searchResult);
end;
end;كيف اجعله يبحث في جميع الاماكن - mohfa - 12-06-2009
إقتباس : ShowMessage('File name = '+searchResult.Name);
ShowMessage('File size = '+IntToStr(searchResult.Size));
رغم انه مثال فقط ولكن حاول الابتعاد عن هكذا استعمال لل ShowMessage .
فيما يخص طلبك اطنك تقصد ال Recursive Search .
انظر هذا المثال :
http://www.awitness.org/delphi_pascal_tutorial/source/disk_search_recursive.txt