1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 | private with Ada.Wide_Wide_Text_IO; private with Ada.Text_IO; package FehlermeldungSchreiben is pragma Elaborate_Body; procedure MeldungSchreiben (MeldungExtern : in Wide_Wide_String) with Pre => ( MeldungExtern'Length > 0 ); procedure MeldungSchreibenASCII (MeldungExtern : in String) with Pre => ( MeldungExtern'Length > 0 ); private use Ada.Wide_Wide_Text_IO; DateiMeldungASCII : Ada.Text_IO.File_Type; DateiMeldung : File_Type; end FehlermeldungSchreiben; |