Borrar Ficheros.Extension

[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.