בית
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]

נוהל FindFiles (נתיב, מסכה: מחרוזת; רשימה: TStrings; IncludeSubDir: Boolean = True); var SearchRec: TSearchRec; FindResult: מספר שלם; התחל List.BeginUpdate; נסה נתיב: = IncludeTrailingBackSlash (נתיב); FindResult: = FindFirst (נתיב + "*. *", FaAnyFile, SearchRec); נסה בעוד FindResult = 0 מתחילים לעשות עם SearchRec אם (Attr ו- faDirectory <> 0) אז התחל אם IncludeSubDir ו- (שם <> "..") ו- (שם <> ".") ואז FindFiles (נתיב + שם, מסכה, רשימה, IncludeSubDir); סוף אחר להתחיל אם MatchesMask (שם, מסכה) ואז List.Td (נתיב + שם); סוף; FindResult: = FindNext (SearchRec); סוף; סוף סוף FindClose (SearchRec); סוף; סוף סוף רשימה. עדכן; סוף; סוף;



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.56 MB
זמן: 0.04 c
1-22108
מיכאל
2001-12-19 19:10
2002.01.08
הדפסה ארוכה על מדפסת מטריצה


1-22105
גונזה
2001-12-19 16:35
2002.01.08
יישום MDI ???


3-21976
טרמייק
2001-12-06 11:47
2002.01.08
נהלים מאוחסנים, אובייקטים דינמיים


6-22267
wHammer
2001-09-28 15:00
2002.01.08
זה יהיה מאוד נוח ...


4-22469
זיברו
2001-11-01 19:38
2002.01.08
תמונה בתפריט הקופץ (כמו מכפתור





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