Cita:
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!