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

למטה

מחיקת תוכן הספרייה מצא סניפים דומים


Марина   (2001-12-20 15:42) [0]

האם תוכל בבקשה לומר לי כיצד למחוק את תוכן הספריה ולעזוב את הספרייה עצמה? אתה צריך משהו כמו מחיקת קבצים ("c: \ kio \ massiv \ *. *") תודה מראש ואני מתנצל על שאלת "התה".



gek   (2001-12-20 15:47) [1]

אם Findfirst ("\ TEMP \ *. tmp", faAnyFile, SearchRec) = 0 ואז
ואילו (FindNext (SearchRec) = 0) עושים זאת
אם לא מוחק קובץ (pchar ("\ TEMP \" + SearchRec.name))
Application.Terminate;
FindClose (SearchRec);



Dimka Maslov   (2001-12-20 16:05) [2]

uses Windows, SysUtils, Classes, Masks;

procedure DeleteFiles(Path: string);
var
Mask: string;
SearchRec: TSearchRec;
FindResult: Integer;
List: TStringList;
i: Integer;
begin
Mask:=ExtractFileName(Path);
if Mask = "" then Mask:="*.*";
Path:=ExtractFilePath(Path);
if Path = "" then Path:=IncludeTrailingBackslash(GetCurrentDir);
List:=TStringList.Create;
try
FindResult:=FindFirst(Path+"*.*", faAnyFile, SearchRec);
try
while FindResult = 0 do with SearchRec do begin
if ((Attr and faDirectory) = 0) and MatchesMask(Name, Mask) then
List.Add(Name);
FindResult:=FindNext(SearchRec);
end;
for i:=0 to List.Count - 1 do DeleteFile(Path+List[i]);
finally
FindClose(SearchRec);
end;
finally
List.Free;
end;
end;



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

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

למעלה





זיכרון: 0.54 MB
זמן: 0.022 c
1-22051
קיי
2001-12-18 22:22
2002.01.08
Richedit


1-22234
x000d
2001-12-17 01:34
2002.01.08
פעיל, לא פעיל.


1-22173
פתיון
2001-12-20 19:33
2002.01.08
התקנת רכיבים


6-22316
דמור
2001-09-24 20:58
2002.01.08
יירוט של טעויות חיבור באמצעות שקעים


1-22179
ikar
2001-12-21 09:10
2002.01.08
כיצד לחזור על צמתים שורשיים ב- TTreeView?





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