1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | with Ada.Streams.Stream_IO; use Ada.Streams.Stream_IO; package SchreibenDatenbankenLogik is pragma Elaborate_Body; procedure SchreibenAlleDatenbanken; procedure SchreibenEinheitenDatenbank; procedure SchreibenForschungenDatenbank; procedure SchreibenGebäudeDatenbank; procedure SchreibenKartenDatenbanken; procedure SchreibenVerbesserungenDatenbank; procedure SchreibenSpeziesDatenbank; procedure SchreibenEffekteDatenbank; private DatenbankSpeichern : File_Type; end SchreibenDatenbankenLogik; |