Pascal - 不写入文件

Question

帕斯卡大师们好！ 我有一个自定义记录的文件类型：

DBCell = record
    Name: string[10];
    Surname: string[15];
    Balance:integer;
    OpenDate: record
        year: integer;
        month: 1..12;
        day:1..31
    end;
    AccountN: string[10];
end;
DBFile = file of DBCell;

以及打开并向文件添加新元素的函数：

procedure Fopenf(var F:DBFile; var FName:string; var FOpened:boolean);
begin
    Assign(F,FName);

    rewrite(F);

    FOpened:=true;
end;

procedure InsN(var F:DBFile;var cell:DBCell;var FOpened:boolean);
begin
        Write(F,cell);
        Close(F);
        Rewrite(F);
        Writeln('Added');
        FOpened:=false;
end;

问题是，实际上没有任何内容写入文件。我做错了什么？

Answer 1

我已经很久没有使用 Pascal 了，但是 IIRC Rewrite 截断了该文件。您应该使用Append。

在文件中插入记录后，您不需要 Rewrite()：

procedure InsN(var F:DBFile;var cell:DBCell;var FOpened:boolean);
begin
    Write(F,cell);
    Close(F);
    Writeln('Added');
    FOpened:=false;
end;

如果您不想每次打开文件时都截断文件：

procedure Fopenf(var F:DBFile; var FName:string; var FOpened:boolean);
begin
    Assign(F,FName);

    append(F);

    FOpened:=true;
end;

Answer 2

问题是 InsN 中的“重写”调用。 “重写”创建一个新文件，因此通过在程序末尾调用它，您将创建一个新的空文件！