WebSVN – spacemission – Diff – /LevSpeicherung.pas

     procedure DsFancyButton2Click(Sender: TObject);
     procedure AbbrechenBtnClick(Sender: TObject);
     procedure LevelNameChange(Sender: TObject);
     procedure FormHide(Sender: TObject);
     procedure FormCreate(Sender: TObject);
+  private
+    function GetListBoxSelectedLevelNumber: integer;
   public
     procedure SearchLevels;
-    function RightStr(str: string; count: integer): string;
   end;
 var
   SpeicherungForm: TSpeicherungForm;
 uses
   Global, LevMain, ComLevelReader;
 {$R *.DFM}
+resourcestring
+  SLevelListBox = 'Level %d';
 procedure TSpeicherungForm.SearchLevels;
 var
   i: integer;
+  fil: string;
 begin
   //SpinEdit.Value := 1;
   LevelListBox.items.clear;
   li1a.visible := false;
   li2a.visible := false;
   li3a.visible := false;
   li1b.visible := false;
   li2b.visible := false;
   li3b.visible := false;
   li4.visible := false;
+  liu.Visible := false;
   liw.visible := true;
   LadenBtn.enabled := false;
   LoeschenBtn.enabled := false;
   for i := 1 to MaxPossibleLevels do
   begin
-    if fileexists(GetLevelFileName(i)) then
+    fil := GetLevelFileName(i, false);
-      LevelListBox.items.Add(ChangeFileExt(ExtractFileName(GetLevelFileName(i)),''));
+    if fileexists(fil) then LevelListBox.items.Add(Format(SLevelListBox, [i]));
   end;
 end;
 procedure TSpeicherungForm.LoeschenBtnClick(Sender: TObject);
+var
+  fil: string;
 begin
   if LevelListBox.ItemIndex = -1 then exit;
   if MessageDlg('Dieses Level wirklich löschen?', mtConfirmation, mbYesNoCancel, 0) = mrYes then
   begin
     li4.visible := false;
     liu.visible := false;
     liw.visible := true;
     LadenBtn.enabled := false;
     LoeschenBtn.enabled := false;
-    deletefile(IncludeTrailingPathDelimiter(ExtractFilePath(GetLevelFileName(1)))+
+    fil := GetLevelFileName(GetListBoxSelectedLevelNumber,false);
-      LevelListBox.Items.strings[LevelListBox.itemindex]+'.lev');
+    if not fileexists(fil) then raise Exception.Create('Leveldatei nicht gefunden');
+    deletefile(fil);
     SearchLevels;
   end;
 end;
 procedure TSpeicherungForm.LadenBtnClick(Sender: TObject);
+var
+  fil: string;
 begin
   if LevelListBox.ItemIndex = -1 then exit;
   if MainForm.LevChanged and (MainForm.LevData.CountEnemies>0) then
   begin
   {if liu.visible or (LevelListBox.items.count=0) then
     exit;}
   MainForm.DestroyLevel;
   MainForm.LevData.RasterErzwingen := true;
-  MainForm.LevData.LoadFromFile(
+  fil := GetLevelFileName(GetListBoxSelectedLevelNumber,false);
-    IncludeTrailingPathDelimiter(ExtractFilePath(GetLevelFileName(1)))+
+  if not fileexists(fil) then raise Exception.Create('Leveldatei nicht gefunden');
-    LevelListBox.Items.strings[LevelListBox.itemindex]+'.lev');
+  MainForm.LevData.LoadFromFile(fil);
   MainForm.RefreshFromLevData;
   MainForm.LevChanged := false;
   MainForm.AnzeigeAct;
   close;
 end;
-function TSpeicherungForm.RightStr(str: string; count: integer): string;
-begin
-  result := copy(str, length(str)-(count-1), count);
-end;
 procedure TSpeicherungForm.SpeichernBtnClick(Sender: TObject);
 begin
   if MainForm.LevData.CountEnemies = 0 then
   begin
     MessageDlg('Das Level ist leer!', mtError, [mbOK], 0);
       MessageDlg('Dies ist kein gültiger Levelname!', mtError, [mbOK], 0);
       LevelName.SetFocus;
       exit;
     end;
   end;}
-  if LevelListBox.items.IndexOf('Level ' + inttostr(LevelNumber.Value)) > -1 then
+  if LevelListBox.items.IndexOf(Format(SLevelListBox, [LevelNumber.Value])) > -1 then
   begin
     if MessageDlg('Level ist bereits vorhanden. Ersetzen?', mtConfirmation, mbYesNoCancel, 0) <> mrYes then
       exit;
   end;
   // Speichern
   MainForm.LevData.LevelEditorLength := MainForm.ScrollBar.Max;
-  MainForm.LevData.SaveToFile(GetLevelFileName(LevelNumber.Value));
+  MainForm.LevData.SaveToFile(GetLevelFileName(LevelNumber.Value,true));
   // Nacharbeiten
   MainForm.LevChanged := false;
   MainForm.AnzeigeAct;
   SearchLevels;
 procedure TSpeicherungForm.LevelListBoxClick(Sender: TObject);
 var
   LevelData: TLevelData;
   boss: boolean;
   i: Integer;
-  temp: string;
   anzahlEinheiten: integer;
+  fil: string;
 begin
   li1a.visible := false;
   li2a.visible := false;
   li3a.visible := false;
   li1b.visible := false;
     ladenbtn.enabled := false;
     loeschenbtn.enabled := false;
     liw.visible := true;
     exit;
   end;
-  temp := LevelListBox.Items.strings[LevelListBox.itemindex];
-  LevelNumber.Value := strtoint(RightStr(temp, length(temp)-Length('Level ')));
+  LevelNumber.Value := GetListBoxSelectedLevelNumber;
   LevelData := TLevelData.Create;
   try
     try
       LevelData.RasterErzwingen := true;
-      LevelData.LoadFromFile(IncludeTrailingPathDelimiter(ExtractFilePath(GetLevelFileName(1)))+
+      fil := GetLevelFileName(GetListBoxSelectedLevelNumber,false);
-        LevelListBox.Items.strings[LevelListBox.itemindex]+'.lev');
+      if not fileexists(fil) then raise Exception.Create('Leveldatei nicht gefunden');
+      LevelData.LoadFromFile(fil);
       boss := false;
       anzahlEinheiten := Length(LevelData.EnemyAdventTable);
       for i := 0 to anzahlEinheiten - 1 do
       begin
 begin
   mainform.dxtimer.enabled := false;
   SearchLevels;
 end;
+function TSpeicherungForm.GetListBoxSelectedLevelNumber: integer;
+var
+  i: integer;
+begin
+  result := -1;
+  if LevelListBox.itemindex = -1 then exit;
+  for i := 1 to MaxPossibleLevels do
+  begin
+    if LevelListBox.Items.strings[LevelListBox.itemindex] = Format(SLevelListBox, [i]) then
+    begin
+      result := i;
+      exit;
+    end;
+  end;
+end;
 procedure TSpeicherungForm.DsFancyButton2Click(Sender: TObject);
 begin
   SearchLevels;
 end;

Subversion Repositories spacemission

spacemission/LevSpeicherung.pas – Rev 44 → 51