with Ada.Strings.Wide_Wide_Unbounded; use Ada.Strings.Wide_Wide_Unbounded;
with Speziestexte;
with TextnummernKonstanten;
package body SpeziesbeschreibungenGrafik is
function Kurzbeschreibung
(SpeziesExtern : in SpeziesDatentypen.Spezies_Vorhanden_Enum)
return Wide_Wide_String
is begin
return To_Wide_Wide_String (Source => Speziestexte.NameBeschreibung (SpeziesExtern, TextnummernKonstanten.KurzeBeschreibung));
end Kurzbeschreibung;
function Langbeschreibung
(SpeziesExtern : in SpeziesDatentypen.Spezies_Vorhanden_Enum)
return Wide_Wide_String
is begin
return To_Wide_Wide_String (Source => Speziestexte.NameBeschreibung (SpeziesExtern, TextnummernKonstanten.LangeBeschreibung));
end Langbeschreibung;
end SpeziesbeschreibungenGrafik;