Changeset 64 for trunk/UCore.pas

Timestamp:

Sep 26, 2014, 9:01:50 PM (10 years ago)

Author:

chronos

Message:

• Modified: Improved saving game state to XML file. Not yet finished and can't be loaded yet.

File:

• trunk/UCore.pas (modified) (2 diffs)

trunk/UCore.pas

@@ -149 +149 @@
 procedure TCore.AGameLoadExecute(Sender: TObject);
 begin
-  OpenDialog1.FileName := LastMapFileName;
+  if Game.FileName = '' then
+    OpenDialog1.FileName := LastMapFileName
+    else OpenDialog1.FileName := Game.FileName;
   if OpenDialog1.Execute then begin
-    Game.Map.LoadFromFile(OpenDialog1.FileName);
+    Game.LoadFromFile(OpenDialog1.FileName);
     LastMapFileName := OpenDialog1.FileName;
     FormMain.Redraw;
@@ -180 +182 @@
 procedure TCore.AGameSaveExecute(Sender: TObject);
 begin
-  SaveDialog1.FileName := ExtractFileDir(LastMapFileName);
+  if Game.FileName = '' then
+    SaveDialog1.FileName := ExtractFileDir(LastMapFileName)
+    else SaveDialog1.FileName := Game.FileName;
   if SaveDialog1.Execute then begin
-    Game.Map.SaveToFile(SaveDialog1.FileName);
+    Game.SaveToFile(SaveDialog1.FileName);
     LastMapFileName := SaveDialog1.FileName;
   end;