honki_tonks_zivilisationen_0.5.5305_cfbe2104/src/Logik/Spielstandsystem/SpielstandEntfernenLogik.adb

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
with Ada.Directories; use Ada.Directories;
with Ada.Strings.UTF_Encoding.Wide_Wide_Strings; use Ada.Strings.UTF_Encoding.Wide_Wide_Strings;

with VerzeichnisKonstanten;
with TextnummernKonstanten;

with JaNeinLogik;

package body SpielstandEntfernenLogik is

   procedure SpielstandEntfernen
     (SpielstandnameExtern : in Wide_Wide_String)
   is begin
      
      if
        SpielstandnameExtern'Length = 0
      then
         null;
          
      elsif
        JaNeinLogik.JaNein (FrageZeileExtern => TextnummernKonstanten.FrageSpielstandLöschen) = False
      then
         null;
         
      else
         Delete_File (Name => (VerzeichnisKonstanten.SpielstandStrich & Encode (Item => SpielstandnameExtern)));
      end if;
      
   end SpielstandEntfernen;

end SpielstandEntfernenLogik;