Löschen Sie das Leerzeichen nach dem Integer'Image-Wert in Ada

Question

Dec 04, 2009, 01:43 PM

Löschen Sie das Leerzeichen nach dem Integer'Image-Wert in Ada

wenn ich diese Prozedur drucke -

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;

Das Ergebnis ist (zum Beispiel): 1- 1- 2010

Meine Frage ist, wie man den Abstand eines Zeichens vor jedem Datumswert verhindert. (Tag Monat Jahr). Natürlich verwende ich das Datumsverfahren mit einem Datensatz innerhalb des Haltetages / Monats / Jahres.

Danke im Voraus.

Zu kommentieren