with Ada.Strings.Wide_Wide_Unbounded; use Ada.Strings.Wide_Wide_Unbounded; with Speziestexte; with TextnummernKonstanten; package body GebaeudebeschreibungenGrafik is function Kurzbeschreibung (IDExtern : in StadtDatentypen.GebäudeIDVorhanden; SpeziesExtern : in SpeziesDatentypen.Spezies_Vorhanden_Enum) return Wide_Wide_String is begin return To_Wide_Wide_String (Source => Speziestexte.Gebäude (SpeziesExtern, IDExtern, TextnummernKonstanten.KurzeBeschreibung)); end Kurzbeschreibung; function Langbeschreibung (IDExtern : in StadtDatentypen.GebäudeIDVorhanden; SpeziesExtern : in SpeziesDatentypen.Spezies_Vorhanden_Enum) return Wide_Wide_String is begin return To_Wide_Wide_String (Source => Speziestexte.Gebäude (SpeziesExtern, IDExtern, TextnummernKonstanten.LangeBeschreibung)); end Langbeschreibung; end GebaeudebeschreibungenGrafik;