質問
私は印刷この手順は以下
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;
その結果を(例えば):1- 1- 2010
私の質問は予防方法の間隔文字の前に毎日時の値です。(日/月/年)。もちろん私が使っている日付の手続き記録的な内開催日/月/年となりました。
よろしくお願いします。
解決
お持ちの複数のオプション:
- がわかっている場合は、それを整数値は負でない、スライスの文字列を省略するか、空白にします。
- で利用できますAda.文字列です。固定です。Trim()関数のパンフレット、ホームページは空白にします。
- 利用できるように)手順から、Ada.Text_IO.Integer_IOインスタンス生成などのpreinstantiated Ada.Integer_Text_IO).
こちらは一部のコード例:
with Ada.Text_IO;
with Ada.Integer_Text_IO;
with Ada.Strings.Fixed;
procedure Int_Image is
use Ada.Text_IO;
use Ada.Integer_Text_IO;
use Ada.Strings.Fixed;
N : Integer := 20;
Raw_Image : constant String := Integer'Image(N);
Trimmed_Image : constant String := Trim(Raw_Image, Ada.Strings.Left);
Sliced_Image : constant String := Raw_Image(2 .. Raw_Image'Last);
begin
Put_Line("Raw 'image :" & Raw_Image & ":");
Put_Line("Trimmed image :" & Trimmed_Image & ":");
Put_Line("Sliced image :" & Sliced_Image & ":");
Put ("'Put' image :");
Put (N, Width => 0);
Put_Line(":");
end Int_Image;
の作成と走ることGNAT利回り:
$./int_image
Raw 'image : 20:
Trimmed image :20:
Sliced image :20:
'Put' image :20:
所属していません StackOverflow