Casa
Top.Mail.Ru Yandeks.Metrika
Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

abajo

Borrando contenidos del directorio Encontrar ramas similares


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

¿Puede decirme cómo eliminar los contenidos del directorio y dejar el directorio en sí? Necesitas algo como deletefile ("c: \ kio \ massiv \ *. *") Agradecido de antemano y pido disculpas por la pregunta "tetera".



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

si Findfirst ("\ TEMP \ *. tmp", faAnyFile, SearchRec) = 0 entonces
while (FindNext (SearchRec) = 0) hacer
si no es deletefile (pchar ("\ TEMP \" + SearchRec.name)) entonces
Aplicación.Terminar;
FindClose (SearchRec);



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

utiliza Windows, SysUtils, Classes, Masks; procedimiento DeleteFiles (Path: string); var Máscara: cuerda; SearchRec: TSearchRec; FindResult: Integer; Lista: TStringList; i: Integer; comenzar Máscara: = ExtractFileName (ruta); si Mask = "" entonces Mask: = "*. *"; Ruta: = ExtractFilePath (Ruta); si Path = "" entonces Path: = IncludeTrailingBackslash (GetCurrentDir); Lista: = TStringList.Create; prueba FindResult: = FindFirst (Path + "*. *", FaAnyFile, SearchRec); prueba mientras FindResult = 0 hace con SearchRec comienza if ((Attr y faDirectory) = 0) y MatchesMask (Nombre, Máscara) entonces List.Add (Nombre); FindResult: = FindNext (SearchRec); fin para i: = 0 a List.Count - 1 do DeleteFile (Ruta + Lista [i]); finalmente FindClose (SearchRec); fin finalmente Lista.Free; fin fin



Páginas: 1 rama entera

Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

arriba





Memoria: 0.54 MB
Tiempo: 0.021 c
14-22335
Sergey1
2001-11-05 21:44
2002.01.08
entrada de caracteres


1-22176
Serg5
2001-12-20 14:57
2002.01.08
De nuevo, el problema con el texto: muestro Image1.Canvas.TextOut, pero debajo del texto mismo hay un corredor blanco. ¿Es posible que si no elimina (solo coloque las letras), al menos haga que el corredor sea negro?


4-22476
reino
2001-11-02 19:42
2002.01.08
Ayuda, UpdateResource no funciona con archivos BPL!


14-22377
sudiv
2001-11-08 10:54
2002.01.08
C ++?


4-22502
Alexander
2001-11-06 11:00
2002.01.08
Cómo obtener un icono para una extensión registrada en el sistema





africaans albanés Arabic armenio Azerbaiyán vasco Bielorruso Bulgarian Catalán Chino (simplificado) Chino (tradicional) Croata Checo Danés Dutch Inglés Estonia filipina Finnish French
gallego georgiano Alemán Griego criollo haitiano Hebreo hindi Húngaro islandés Indonesian irlandés Italiana Japonés Korean letón lituano macedonio Malay maltés Noruego
persa polaco Portuguese Rumano Ruso Serbio Slovak Esloveno Español swahili Sueco Thai turco ucranio Urdu vietnamita galés yídish bengalí bosnio
cebuano esperanto gujarati hausa hmong igbo javanés kannada khmer lao latín maorí marathi mongol nepali punjabi somalí Tamil telugu yoruba
zulú
Английский Francés Alemán Italiano portugués Русский Español