Borrar Ficheros.Extension

[serhasae]

Da error en la linea
DeleteFile(dir + sr.Name); Incompatible type String and Pchar.

cambiamos a Pchar ... deletefile (pchar(dir + sr.name))

Da error en la linea:
FindClose(sr); Incompatible type Cardinal and TSearchRec

De todas maneras creo que no esta bien enfocado del todo.

Gracias.

[dec]

Hola,

El primer error se refiere a lo siguiente: arriba se usa la función "DeleteFile" sita en la unidad "SysUtils", que a su vez llama a una función del mismo nombre esta vez de la unidad "Windows". La primera requiere un parámetro de tipo "string" y la segunda de tipo "PChar".

Puedes hacer dos cosas, o esto:

Código Delphi [-]
  DeleteFile(PChar(dir + sr.Name));

... para utilizar la función de la unidad "Windows" o añadir la unidad "SysUtils" en alguna cláusula "uses". La función de la unidad "Windows" no es "multiplataforma", la de "SysUtils" sí parece serlo: tú decides, en todo caso.

Respecto del segundo error... la verdad, no sé qué decirte: a mí me funciona bien incluso en caso de no poderse borrar un determinado archivo, cosa que por otro lado se comprueba antes, e incluso estando completamente vacío el directorio que se pasa como parámetro.

Prueba a añadir la unidad "SysUtils" si no lo hiciste ya, de momento no se me ocurre otra cosa que decirte.

[delphi.com.ar]

Empezado por serhasae

Da error en la linea
DeleteFile(dir + sr.Name); Incompatible type String and Pchar.

cambiamos a Pchar ... deletefile (pchar(dir + sr.name))

Da error en la linea:
FindClose(sr); Incompatible type Cardinal and TSearchRec

De todas maneras creo que no esta bien enfocado del todo.

Gracias.

Tienes un problema con el orden en que se usan las units Windows y SysUtils. Estas funciones estan definidas en ambas, pero evidentemente te esta tomando la de Windows. Yo lo solucionaría poniendo SysUtils.FindClose (por ejemplo) como modo estricto.

Saludos!

[dec]

Hola,

Gracias Federico. Es exactamente lo que has dicho. No sabía que al cabo también el procedimiento "FindClose" de la unidad "SysUtils" acaba por llamar a uno del mismo nombre en la unidad "Windows".

Vale, pues, lo dicho más arriba, a lo que se ve, y es que si se utiliza el procedimiento "FindClose" de la unidad "SysUtils" funcionaría, según parece, también en Linux.

Gracias de nuevo Federico.

[dec]

Hola,

Empezado por jachguate

Yo personalmente creo que no es necesaria la comprobación del FileExists, a menos que dos procesos estén borrando los archivos al mismo tiempo...

Bueno. En realidad tiene un sentido ahí el "FileExists", pero, puede que no del todo correcto o equivocado. Me explico... no, no me explico.

Me explico. Cuando iba a explicarme me he dado cuenta de algo: tal vez sobre definitivamente el "FileExists" puesto que la función "DeleteFile" no causará problemas en caso de que no exista el supuesto archivo a borrar: comprobado.

La intención del "FileExists", sin embargo, era no complicar las cosas con algo así:

Código Delphi [-]
 if ((sr.Attr and faDirectory) <> 0) 
   and (sr.Name <> '.') and (sr.Name <> '..') then

... pero, definitivamente, y, como digo, pienso ahora que el "FileExists" sobra en el procedimiento. Gracias jachguate.

[jachguate]

Hola.

Seguramente hay un conflicto de unidades.

Según la ayuda de delphi:

Empezado por f1

FindClose
Releases memory allocated by FindFirst.

Unit

SysUtils

Category:

file management routines

procedure FindClose(var F: TSearchRec);

Description

FindClose terminates a FindFirst/FindNext sequence.

Además, que te hace pensar que no está bien enfocado. Yo personalmente creo que no es necesaria la comprobación del FileExists, a menos que dos procesos estén borrando los archivos al mismo tiempo... pero el resto, lo veo muy bien.

Hasta luego.