1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | with Ada.Streams.Stream_IO; use Ada.Streams.Stream_IO; package EinlesenToneinstellungenLogik is pragma Elaborate_Body; procedure Toneinstelllungen; private Nullwert : Boolean; DateiToneinstellungen : File_Type; Soundlautstärke : Float; Musiklautstärke : Float; function ToneinstellungenDurchgehen (LadenPrüfenExtern : in Boolean; DateiLadenExtern : in File_Type) return Boolean; end EinlesenToneinstellungenLogik; |