Տուն
Top.Mail.Ru Moscow
Ֆորում: «Գլխավոր»;
Ընթացիկ արխիվը `2002.01.08;
Բեռնել: [xml.tar.bz2];

Down

Directoryնջելով գրացուցակի պարունակությունը Գտնել նմանատիպ մասնաճյուղեր


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

Ասա ինձ, խնդրում եմ, ինչպես ջնջել գրացուցակի պարունակությունը և գրացուցակը թողնել ինքն իրեն: Deletefile- ի նման մի բան է անհրաժեշտ ("c: \ kio \ massiv \ *. *") Անհրաժեշտ է: Ես նախապես շնորհակալ եմ և ներողություն եմ խնդրում «Դմիտս» հարցի համար:



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

if Findfirst("\TEMP\*.tmp",faAnyFile, SearchRec)= 0 then
իսկ (FindNext (SearchRec) = 0)
if not deletefile(pchar("\TEMP\"+SearchRec.name))then
Դիմում.
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];

Up









Հիշողություն `0.55 ՄԲ
Ժամանակը `0.032 գ
1-22083
Դենիս
2001-12-19 12:06
2002.01.08
Օգնություն խնդրում եմ!


3-21900
վանո
2001-12-07 11:13
2002.01.08
TString և լարային


1-22181
Սնունդ
2001-12-21 11:12
2002.01.08
Ինչպես արգելել մկնիկի ձեւափոխումը:


14-22349
Իվան Շիկալով
2001-11-06 21:48
2002.01.08
Անատոլի Պոդգորեցկին


7-22444
VS
2001-09-27 07:14
2002.01.08
Ինչպես պատճենել ինքներդ, եթե ծրագիրը աշխատում է





afrikaans ալբանական արաբական հայերեն ադրբեջանական Բասկերի Բելառուսի Բուլղարիայի catalan Չինարեն (պարզեցված) Չինարեն (ավանդական) Խորվաթիայի չեխ դանիերեն հոլանդական Անգլերեն
Էստոնիայի filipino ֆիններեն ֆրանսերեն
galician վրացական գերմանական հունարեն haitian Creole եբրայերեն հինդի հունգարերեն icelandic հայերեն իռլանդական իտալական ճապոնացի Կորեայի Լատվիայի Լիտվայի մակեդոներեն Մալայերեն մալթերեն նորվեգական
պարսկական Լեհաստանի պորտուգալացի ռումինական ռուսական սերբերեն Սլովակիայի Սլովենիայի իսպաներեն սուահիլի շվեդերեն թայերեն թուրքական ուկրաինական ուրդու վիետնամերեն ուելսերեն հայերեն bengali բոսնիերեն
Cebuano Esperanto գուջարաթի հաուսա Hmong Igbo ճավաերեն kannada Khmer Lao լատիներեն մաորի մարաթի մոնղոլական նեպալերեն Punjabi Somali tamil telugu յորուբա
զուլուսերեն
Անգլերեն Французский Немецкий Итальянский Португальский Русский Испанский