Put

(Ristras de tamaño dinámico)

Librería

Ada.Text_IO.Unbounded_IO

Sintaxis y explicación

procedure Put([File : in File_Type;] Item : in Unbounded_String);

Ejemplo

with Ada.Strings.Unbounded, Ada.Text_IO.Unbounded_IO;
...
S1 : Unbounded_String;
...
Put (S1);

with Ada.Strings.Unbounded;    use Ada.Strings.Unbounded;
with Ada.Text_IO.Unbounded_IO; use Ada.Text_IO.Unbounded_IO;
with Text_IO;                  use Text_IO;
...
S1 : Unbounded_String;
F  : File_Type;
...
Put (F, S1);

Véase