?? usavedata.pas
字號(hào):
{ 保存數(shù)據(jù)單元 }
unit USaveData;
interface
uses
UBox;
type
TSaveData = record //用來存儲(chǔ)當(dāng)前的游戲
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.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -