帕斯卡 - 不写入文件答案

【问题标题】：Pascal - not writing to file帕斯卡 - 不写入文件
【发布时间】：2011-07-25 20:43:24
【问题描述】：

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

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;

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

【问题讨论】：

标签： freepascal file-manipulation

【解决方案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;

【讨论】：

您不能 append() 到自定义记录文件。不过，您可以 reset() 文件并将指针更改为它的末尾。无论如何，问题已经解决了，谢谢您的帮助。
@Nordvind 既然您的问题已经解决，请点击左侧的大“V”来选择一些答案作为正确答案：)

【解决方案2】：

问题在于 InsN 中的“重写”调用。 'Rewrite' 创建一个新文件，所以通过在程序末尾调用它，你正在创建一个新的空文件！

【讨论】：