usavedata.pas

很好的俄罗斯方块

{   保存数据单元  }
unit USaveData;

interface
uses
   UBox;

type
  TSaveData = record                                     //用来存储当前的游戏
      NextId: Byte;
      Level : Byte;
      Score : LongInt;
      CurLevS:LongInt;
      MapData:TMapData;
  end;

function SaveData(FileName: String; Data: TSaveData):Boolean;
function LoadData(FileName: String;var Data: TSaveData):Boolean;

implementation
function SaveData(FileName: String; Data: TSaveData):Boolean;
var
   DataFile: File of TSaveData;
begin
   {$I-}
   AssignFile(DataFile,FileName);
   ReWrite(DataFile);
   Write(DataFile,Data);
   CloseFile(DataFile);
   {$I+}
   Result := IoResult = 0;
end;

function LoadData(FileName: String;var Data: TSaveData):Boolean;
var
   DataFile: File of TSaveData;
begin
   {$I-}
   AssignFile(DataFile,FileName);
   Reset(DataFile);
   Read(DataFile,Data);
   CloseFile(DataFile);
   {$I-}
   Result := IoResult = 0;
end;
end.