找不到Pascal CloseFile

Question

我一直在用Delphi编写程序，而我想做的就是用“保存文件”设置游戏。我一直在Delphi中进行此操作，而不是在将代码带回家时才使用Pascal编译器，由于出现以下错误，我似乎无法运行程序

Free Pascal Compiler version 2.6.2-8 [2014/01/22] for x86_64                                                                                                     
Copyright (c) 1993-2012 by Florian Klaempfl and others                                                                                                           
Target OS: Linux for x86-64                                                                                                                                      
Compiling control.p                                                                                                                                              
control.p(44,12) Error: Identifier not found "CloseFile"                                                                                                         
control.p(116,14) Error: Identifier not found "closeFile"                                                                                                        
control.p(127,13) Error: Identifier not found "assignFile"                                                                                                       
control.p(143,4) Fatal: There were 3 errors compiling module, stopping                                                                                           
Fatal: Compilation aborted                                                                                                                                       
Error: /usr/bin/ppcx64 returned an error exitcode (normal if you did not specify a source file to be compiled)

抱歉，如果这是一个愚蠢的问题，但是我对文件不熟悉，我真的希望它能够正常工作。以下是我当前使用的所有代码，以防万一您需要它，如果它混淆了其草稿，并表示感谢，请您谅解。

program Task3;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils;

Type
  gameRec = record
    name: string[30];
    skill: integer;
    str: integer;
    modif: integer;
    sskill: string[3];
    sstr: string[3];
    smodif: string[3];
    sf: integer;
    ssf : string[1];
  end;

var
  gameFile : file of gameRec;
  p1, p2 : gameRec;

procedure showStats;
begin
  FileMode := fmOpenRead;
  Reset(gameFile);
  read(gameFile, p1);
  read(gameFile, p2);

  writeln;
  writeln(p1.name, '''s stats');
  writeln('Skill: ', p1.skill);
  writeln('Strenght: ', p1.str);
  writeln('Modifier: ', p1.modif);
  writeln;
  writeln(p2.name, '''s stats');
  writeln('Skill: ', p2.skill);
  writeln('Strenght: ', p2.str);
  writeln('Modifier: ', p2.modif);
  writeln;
  CloseFile(gameFile);
end;

procedure resetsf;
var
  ran12, ran4, namelen: integer;
  namepass: boolean;
  name: string;
begin
  writeln('No save file detected, generating new stats');
  namelen := 0;

    namepass := false;
    repeat
      write('What is player 1''s name: ');
      readln(name);
      namelen := length(name);
      if (namelen > 2) and (namelen < 30) then
      begin
        p1.name := name;
        namepass := true;
      end
      else
        writeln('You name must be between 3 and 30 characters');
    until namepass = true;
    namepass := false;
    repeat
      write('What is player 2''s name: ');
      readln(name);
      namelen := length(name);
      if (namelen > 2) and (namelen < 30) then
      begin
        p2.name := name;
        namepass := true;
      end
      else
        writeln('You name must be between 3 and 30 characters');
    until namepass = true;


    ran12 := random(12) + 1;
    ran4 := random(4) + 1;
    p1.skill := 10 + (ran12 div ran4);

    ran12 := random(12) + 1;
    ran4 := random(4) + 1;
    p1.str := 10 + (ran12 div ran4);

    ran12 := random(12) + 1;
    ran4 := random(4) + 1;
    p2.skill := 10 + (ran12 div ran4);

    ran12 := random(12) + 1;
    ran4 := random(4) + 1;
    p2.str := 10 + (ran12 div ran4);


    reWrite(gameFile);
    p1.sskill := inttostr(p1.skill);   //debug
    p1.sstr := inttostr(p1.str);
    p1.smodif := inttostr(p1.modif);
    //write(gameFile,p1);

    p2.sskill := inttostr(p2.skill);
    p2.sstr := inttostr(p2.str);
    p2.smodif := inttostr(p2.modif);   //debug
    write(gameFile,p2);

    p1.sf := 1;
    p1.ssf := inttostr(p1.sf);
    write(gameFile,p1);   //debug

    closeFile(gameFile);
    FileMode := fmOpenRead;
  Reset(gameFile);
  read(gameFile, p1);
  read(gameFile, p2);



end;

begin
  assignFile(gameFile, 'N:\gamerec.dat');
  randomize;
  writeln('Game :)');
  writeln('By Sam Collins');
  writeln;

  FileMode := fmOpenRead;
  Reset(gameFile);
  read(gameFile, p1);
  writeln(p1.sf);
  if p1.sf = 0 then
    resetsf
  else
    writeln('Save file detected using old stats');
  showStats;
  readln;
end.

Answer 1

如果要与delphi兼容，可通过-Sd进行编译或将{$ mode Delphi}添加到源代码中（在顶部，例如$ apptype附近），将编译器置于Delphi模式。

然后将接受closefile（）和assignfile（）。默认的方言是turbo pascal。默认情况下，Lazarus将FPC放在objfpc中（也与delphi相似）。

Closefile位于具有系统单元增强功能的单元（objpas）中，仅在Delphi或objfpc modi中有效。

使用名称空间（SYSTEM.sysutils而不是sysutils）也可能很危险。更好地简化为sysutils。命名空间是一个Delphi扩展，仅在Delphi XE2中得到了重要应用。

我进行了测试，并删除了{$ R * .res}，即删除了系统。在sysutils和-Sd使代码编译之前