1 2 3 4 5 6 7 8 9 10 11 12 13 | with Ada.Strings.Wide_Wide_Unbounded; use Ada.Strings.Wide_Wide_Unbounded; package EinlesenLogik is pragma Elaborate_Body; procedure EinlesenOhneAnzeige; procedure EinlesenMitAnzeige; private GewählteSprache : Unbounded_Wide_Wide_String; end EinlesenLogik; |