1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | with Ada.Wide_Wide_Text_IO; use Ada.Wide_Wide_Text_IO; with Ada.Strings.Wide_Wide_Unbounded; use Ada.Strings.Wide_Wide_Unbounded; package EinlesenSoundsLogik is pragma Elaborate_Body; procedure EinlesenSounds; private AktuelleZeile : Positive; Sound : Unbounded_Wide_Wide_String; DateiSounds : File_Type; end EinlesenSoundsLogik; |