Delphi 프로그램을 사용하여 텍스트 파일을 지우는 방법

function closeFile(filename: string): Boolean;

var

sFile: 파일 형식

begin p>

AssignFile(sFile, filename); //filename은 sFile 유형에 바인딩된 c:\1.txt와 같은 파일 경로입니다.

Rewrite(sFile) //생성 및 텍스트 다시 쓰기

Close(sFile); //형식 닫기

if FileExists(filename) 그런 다음 파일이 존재하는지 바인딩합니다.

결과:= True else if 존재하면 True를 반환합니다.

결과：= False; 존재하지 않으면 False를 반환합니다.

end;