问如何将这个2d数组的内容保存到文件中
EN

Stack Overflow用户

提问于 2015-05-27 17:05:20

回答 3查看 1.7K关注 0票数 2

我需要一些帮助，试图将2d数组的内容保存到一个文件中。首先，我不确定文件的类型应该是etc、.txt还是dat。

我已经编辑了这篇文章，以便代码是文本格式的，而不是图像。

到目前为止，这就是我所得到的。

program CaptureTheSarum;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Const BoardDimension = 8;

Type
  TBoard = Array[1..BoardDimension, 1..BoardDimension] Of String;

Var
  Board : TBoard;
  GameOver : Boolean;
  StartSquare : Integer;
  FinishSquare : Integer;
  StartRank : Integer;
  StartFile : Integer;
  FinishRank : Integer;
  FinishFile : Integer;
  MoveIsLegal : Boolean;
  PlayAgain : Char;
  SampleGame : Char;
  WhoseTurn : Char;
  savedFile : text;

procedure InitialiseSave;
var
  fileName : string;
begin
  fileName := 'SavedGame.dat';

  assignfile(savedfile,fileName);
  if not fileexists(fileName)
  then
    begin
      rewrite(savedfile);
      closefile(savedfile)
    end
  {endif};
end;

procedure saveGame;
var
 save : string;
 RankNo,FileNo : integer;
begin
  writeln('Would you like to save the Game?');
  readln(save);

  if (save = 'y') or (save = 'Y')
  then
    begin
      reset(SavedFile);
      write(SavedFile,board[fileno,Rankno]);
      closeFile(SavedFile);
    end
  {endif};

delphi

人脸识别特惠活动

精准实时的人脸检测、分析、识别等服务，在线、离线满足多样需求，可应用于智慧零售、智慧社区、在线娱乐等多种应用场景

回答 3

Stack Overflow用户

回答已采纳

发布于 2015-05-28 04:28:05

似乎你在尝试做某种棋盘游戏(可能是国际象棋)。

您面临的主要问题是，您还没有将您的板类型定义为固定大小。您可以在Delphi中看到字符串的动态大小。虽然在旧版本的Delphi中，它们被限制在255个字符，在新版本中，它们的大小仅受可用内存的限制。

因此，您应该将板定义(数组)更改为固定类型。对于大多数棋盘游戏，您可以使用2D数组的Char。

TBoard = Array [0..7, 0..7] of Char;

在旧的非Unicode版本的Delphi将是一个AnsiChar，它允许您存储256个不同的字符或256个不同的数字。

在支持Unicode的较新的Delphi版本上，您甚至有更多的可能性。

无论如何，使用固定类型的静态数组的最佳方法是，您可以使用一个命令将整个静态数组保存到一个文件中。

procedure SaveGame;
//When having fixed size types you can use File of Type to quickly get
//ability to store whole type at once. 
//Note this only works for fixed sized records who don't contain any 
//dynamic sized members (strings, dynamic arrays) and static arrays of
//fixed sized type (no strings or other dynamic sized arrays)
//
//With arrays it doesn't even matter whether they are one dimensional 
//or multidimensional. but they need to be static
var Savefile: File of TBoard;
    FileName: String;
begin
  Filename := 'D:\Proba.txt';
  //Assign file
  Assignfile(Savefile,FileName);
  //Check if the file exists if it does open it for editing (reser)
  //else open it in rewrite mode which also automatically creates new 
  //file if the file doesn't exists
  if not Fileexists(Filename) then
    Rewrite(Savefile)
  else
    Reset(SaveFile);

  //Becouse we have a file of fixed sized type we can write the whole 
  //type with just one Write command 
  //your program already know how many bytes it has to write
  //
  //Note if you want to store multiple savegames in a single file you
  //need to use seek to move your current position
  //And because we have file of type the seek moves the current position
  //by N times of the type size
  //So if the size of your type is 64 bytes calling Seek(YourFile,2) 
  //will move current position to the 128th byte
  Write(SaveFile, Board);
  //Close file
  CloseFile(SaveFile);
end;

从文件中读取数据是以类似的方式完成的。

Read(Savefile, Board);

编辑:如果您使用的是较旧版本的Delphi，而char不允许您存储板单元格的状态，那么您可以像大多数其他基于网格的游戏一样，始终使用整数数组。

票数 1

Stack Overflow用户

发布于 2015-05-28 01:31:06

要回答您的主要问题，可以按以下方式保存一个二维字符串数组：

procedure TForm9.FileSaveClick(Sender: TObject);
var
  i, j: integer;
  fn: string;
  fs: TFileStream;
  fw: TWriter;
begin
  fn := 'c:\tmp\mychessfile.dat';
  fs := nil;
  fw := nil;
  try
    fs := TFileStream.Create(fn, fmCreate or fmShareDenyWrite);
    fw := TWriter.Create(fs, 1024);
    for i := 1 to BoardDimension do
      for j := 1 to BoardDimension do
        fw.WriteString(Board[i, j]);
  finally
    fw.Free;
    fs.Free;
  end;
end;

随后，您可以使用以下方法将文件读取回数组：

procedure TForm9.FileReadClick(Sender: TObject);
var
  i, j: integer;
  fn: string;
  fs: TFileStream;
  fr: TReader;
begin
  fn := 'c:\tmp\mychessfile.dat';
  fs := nil;
  fr := nil;
  try
    fs := TFileStream.Create(fn, fmOpenRead or fmShareDenyWrite);
    fr := TReader.Create(fs, 1024);
    for i := 1 to BoardDimension do
      for j := 1 to BoardDimension do
          Board[i, j] := fr.ReadString;
  finally
    fr.Free;
    fs.Free;
  end;
end;

正如您所看到的，我选择了通用的.dat扩展名，因为该文件还将包含二进制数据，如每个文本的长度、数据类型等。这些细节由TWriter/TReader类处理。

您还应该考虑您收到的关于选择文件结构的评论。例如，谷歌搜索“国际象棋文件格式”(假设你正在玩象棋游戏)，会打开符号表示法和该页面的另一个引用：Forsyth-Edwards表示法。

票数 2

Stack Overflow用户

发布于 2015-05-27 17:15:52

INI文件如下：

[d1]
1=element1
2=element2
...
[d2]
1=element1
...

但是，推荐XML，如下所示：

<array>
  <d1>
    <element1>value1</element1>
    <element2>value1</element2>
    ...
  </d1>
  <d2>
    <element1>value1</element1>
    ...
  </d2>
</array>