1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | with Ada.Strings.Wide_Wide_Unbounded; use Ada.Strings.Wide_Wide_Unbounded; private with SystemRecords; package SpielstandAllgemeinesLogik is pragma Elaborate_Body; procedure FortschrittErhöhen (AutospeichernExtern : in Boolean); function SpielstandNameErmitteln return Unbounded_Wide_Wide_String; function SpielstandVorhanden (SpielstandnameExtern : in Unbounded_Wide_Wide_String) return Boolean; private SpielstandName : SystemRecords.TextEingabeRecord; end SpielstandAllgemeinesLogik; |