{Opening Files}
TIntegerFile=File of integer; {<- Under Arrays}
var filebuffer:TIntegerFile;
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
{Under OnTSaveClick}
var Row,Col,Temp:Integer;
Begin
If SaveMazeAs Dialog.Execute then
begin {If valid file entered}
CurMazeFile:=SaveMazeAsDialog.FileName;
AssignFile(Filebuffer,CurMazeFile);
Rewrite(FileBuffer);
Write(FileBuffer,OrcGuys[Orc],KnightRow,KnightCol); {SavesObject} For Row:= 1 to NumRow do {Location}
For Col := 1 to NumCol do
Begin
Temp:=MazeMap[(Row,Col)]; {Saves Walls}
Write(FileBuffer,Temp);
End;
MainFormDC.Caption:='Edit'+CurMazeFile);
CloseFile(File,Buffer);
End;
End;
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
{Under OnTOpenClick}
var Row,Col,Temp:Integer;
Begin
If OpenMazeDialog.Execute then
begin {If valid file entered}
CurMazeFile:=OpenMazeDialog.FileName;
AssignFile(Filebuffer,CurMazeFile);
Reset(FileBuffer);
Read(FileBuffer,OrcGuys[Orc],KnightRow,KnightCol); {Reads Objects} For Row:= 1 to NumRow do {Location}
For Col := 1 to NumCol do
Begin
MazeMap[Row,Col]:=Temp; {Reads Walls}
Read(FileBuffer,Temp);
End;
MainFormDC.Caption:='Edit'+CurMazeFile);
CloseFile(File,Buffer);
End;
End;