בית
Top.Mail.Ru Yandeks.Metrika
פורום: "ראשי";
ארכיון נוכחי: 2002.01.08;
הורדה: [xml.tar.bz2];

למטה

איך? מצא סניפים דומים


Xtorm   (2001-12-19 10:40) [0]

כיצד להשיג את כל רשימת הקבצים והתיקיות מותר בדיסק עם: \
רק ללא עזרה של רכיבים ???



Bizon   (2001-12-19 10:46) [1]

השתמש בקבצי FindFirst ו- FindNext



Dimka Maslov   (2001-12-19 10:52) [2]

procedure FindFiles(Path, Mask: string; List: TStrings; IncludeSubDir: Boolean = True);
var
SearchRec: TSearchRec;
FindResult: Integer;
begin
List.BeginUpdate;
try
Path:=IncludeTrailingBackSlash(Path);
FindResult:=FindFirst(Path+"*.*", faAnyFile, SearchRec);
try
while FindResult = 0 do with SearchRec do begin
if (Attr and faDirectory<>0) then begin
if IncludeSubDir and (Name<>"..") and (Name<>".")
then FindFiles(Path+Name, Mask, List, IncludeSubDir);
end else begin
if MatchesMask(Name, Mask) then List.Add(Path+Name);
end;
FindResult:=FindNext(SearchRec);
end;
finally
FindClose(SearchRec);
end;
finally
List.EndUpdate;
end;
end;



cpp   (2001-12-19 10:53) [3]

כאן והמקור שלי יכול להתאים אישית

נוהל ReadAllFiles (DirFrom: string);
var SearchRecOtkuda: TSearchRec;



נוהל ReadFile (שם קובץ: מחרוזת);
להתחיל
// מה אנחנו רוצים לעשות עם הקובץ
הסוף;

נוהל ReadDir (DirName: מחרוזת);
להתחיל
// מה אנחנו רוצים לעשות עם הספרייה
אם (DirName <> ".") ו- (DirName <> "..") אז
להתחיל
ReadAllFiles (DirFrom + "\" + DirName);
הסוף;
הסוף;

להתחיל
אם FindFirst (DirFrom + "\ *. *", faAnyFile, SearchRecOtkuda) = 0 ואז
להתחיל
אם (faDirectory ו- SearchRecOtkuda.Attr)> 0 אז
ReadDir (SearchRecOtkuda.Name)
אחר
ReadFile (SearchRecOtkuda.Name);
בעוד FindNext (SearchRecOtkuda) = 0 לעשות
להתחיל
אם (faDirectory ו- SearchRecOtkuda.Attr)> 0 אז
ReadDir (SearchRecOtkuda.Name)
אחר
ReadFile (SearchRecOtkuda.Name);
הסוף;
הסוף;
הסוף;



Xtorm   (2001-12-19 11:39) [4]

תודה לכולם, הכל עובד עכשיו !!!!



עמודים: 1 ענף שלם

פורום: "ראשי";
ארכיון נוכחי: 2002.01.08;
הורדה: [xml.tar.bz2];

למעלה





זיכרון: 0.55 MB
זמן: 0.027 c
3-21908
Dup
2001-11-28 13:27
2002.01.08
יישום לתלות


3-21993
&#1050;&#1085;&#1086;&#1087;&#1082;&#1072;
2001-12-07 09:23
2002.01.08
חיפוש באתר (דחוף מאוד !!!)


1-22036
מַברִיחַ
2001-12-18 14:01
2002.01.08
עורך טקסט


1-22043
סרג'
2001-12-18 19:18
2002.01.08
מחיקת אובייקט


6-22291
לווייתן
2001-10-09 22:02
2002.01.08
שאלה על רכיב NMFTP





אפריקאנס אלבני ערבי אַרְמֶנִי אזרביג'אן הבסקים בלארוסית בולגרי קטלאנית הסיני (פשוט) סינית (מסורתית) קרואטית צ'כיה דני הולנדי אנגלית אסטוני פיליפיני פיני צרפתית
גליציה גאורגיה גרמני יווני קריאולית האיטית עברי הינדי הונגרי איסלנדי אינדונזי אירי איטלקי יפני קוריאני לטבי ליטאי מקדוניה מלאית מלטזית נורבגי
פרסי פולני פורטוגזי רומנית רוסי סרבית סלובקי סלובני ספרדי סוואהילית שבדי תאילנדי תורכי אוקראיני אורדו ויאטנמית וולשית יידיש בנגלית בוסנית
קבואנו אספרנטו גוג'ראטית האוסה המונג איגבו יָאוָנִי קנאדה לחמר לאו הלטינית מאורים מרתי מונגולי נפאלית פונג'בית סומליה טמילית טלוגו יורובה
זולו
Английский Французский Немецкий Итальянский Португальский Русский Испанский