[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;