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;