Cita:
Empezado por Ledian_Fdez
Cosas que quiero hacer:
1- Si el archivo no existe pues tengo que crearlo 1ro para luego asignarlo a F, AssignFile(F,'C:\personal.txt')
2- En caso de que exista y contenga información tengo que limpiarlo
|
Tienes una API muy directa para abrir un fichero de forma que siempre se recree de nuevo:
CreateFile:
Código Delphi
[-]
var
FileHandle: Integer;
begin
FileHandle:= CreateFile('FileName', GENERIC_WRITE, 0, nil, CREATE_ALWAYS, FILE_FLAG_WRITE_THROUGH, 0);
end;
Saludos.