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 | with Ada.Streams.Stream_IO; use Ada.Streams.Stream_IO; private with ZahlenDatentypen; package EinlesenSpielendeEinstellungenLogik is pragma Elaborate_Body; procedure SpielendeEinstellungen; private Nullwert : Boolean; DateiSonstigeEinstellungen : File_Type; Autospeichernwert : ZahlenDatentypen.EigenesPositive; function SpielendeEinstellungenDurchgehen (LadenPrüfenExtern : in Boolean; DateiLadenExtern : in File_Type) return Boolean; end EinlesenSpielendeEinstellungenLogik; |