[Delphi] 델파이에서 파일쓰기

var

  F: TextFile;

  FileName: string;

begin

  FileName := '파일명';

  try

    try

      AssignFile(F, FileName); // 파일이 없으면 파일을 생성

      if FileExists(FileName) then

        Append(F) // 기존 내용에 추가하기

      else

        Rewrite(F); // 기존 내용을 덮어쓰기

      Writeln(F, '작성 할 내용');

    except

      on E: Exception do
          ;

    end;

  finally

    CloseFile(F);

  end;

end;