Cancelar el espacio después del valor de imagen de entero en Ada
cuando estoy imprima este procedimiento abajo
procedure put (Date:Date_Type) is
begin
Put(Integer'Image(Date.Day)); --'
Put("-");
Put(Integer'Image(Date.Month)); --'
Put("-");
Put(Integer'Image(Date.Year)); --'
end;
El resultado es (por ejemplo): 1- 1- 2010
Mi pregunta es cómo evitar el espaciado de un carácter antes de cada valor de fecha. (día mes año). Por supuesto, estoy usando el procedimiento de fecha con el registro dentro de día / mes / año.
Gracias por adelantado.