在线商店文本文件写入求助：仅重启代码时重写而非选品时

针对你需要实现「程序重启时重写订单文件，用户选品时仅追加内容」的需求，结合你使用的Pascal/Delphi语法，提供两种可行方案：

方案一：用全局标记控制首次写入行为 #

定义一个全局布尔变量标记是否为程序启动后的第一次写入，第一次写入时执行重写，后续所有写入都追加内容。

var
  tf: TextFile;
  IsFirstWrite: Boolean = True; // 全局变量，程序启动时默认是首次写入

procedure WriteOrderContent(const Content: string);
begin
  AssignFile(tf, 'order.txt');
  try
    if IsFirstWrite then
    begin
      Rewrite(tf); // 首次写入：清空并创建文件
      IsFirstWrite := False; // 标记为非首次，后续不再重写
    end
    else
    begin
      Append(tf); // 非首次写入：追加到文件末尾
    end;
    Writeln(tf, Content);
  finally
    CloseFile(tf); // 确保无论是否出错，都关闭文件释放资源
  end;
end;

调用说明：用户每次选择新商品时，调用WriteOrderContent(xxx)即可，程序重启后IsFirstWrite会重置为True，自动重写文件。

方案二：程序启动时初始化订单文件 #

在程序启动的初始化环节（比如窗体创建事件）直接重写订单文件，清空旧内容；之后用户每次选品都执行追加操作。

var
  tf: TextFile;

// 程序初始化时执行（例如主窗体创建事件）
procedure TMainForm.FormCreate(Sender: TObject);
begin
  AssignFile(tf, 'order.txt');
  try
    Rewrite(tf); // 启动时清空文件，创建新的空白订单文件
  finally
    CloseFile(tf);
  end;
end;

// 用户选品时调用的追加函数
procedure AppendOrderContent(const Content: string);
begin
  AssignFile(tf, 'order.txt');
  try
    Append(tf);
    Writeln(tf, Content);
  finally
    CloseFile(tf);
  end;
end;

调用说明：程序启动后自动清空旧订单，用户每次选品调用AppendOrderContent(xxx)追加内容即可。

注意事项 #

• 两种方案都用try...finally包裹文件操作，避免因异常导致文件句柄泄漏。
• 如果是多用户场景（比如Web在线商店），需为每个用户单独生成订单文件（例如用用户ID命名），避免不同用户的订单内容冲突。
• 方案一不会在用户未选品时创建空文件，方案二则会在程序启动时生成空文件，可根据你的业务需求选择。

内容的提问来源于stack exchange，提问作者Starstruckk