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!