Trabajando y conociendo mas a TextFile

[[escafandra]]

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.