ada => छवि संलग्न करें

परिचय

उपप्रकार विशेषताएँ 'Image और 'Value क्रमशः, एक स्केलर मान और एक स्ट्रिंग लेगा और वे क्रमशः, एक स्ट्रिंग और एक स्केल मान देते हैं। मूल मान प्राप्त करने के लिए 'Image इनपुट हो सकता है 'Value का परिणाम है। इसका उलटा भी सच है।

__Scalar_Object__'Image विशेषता का उपयोग सीधे ऑब्जेक्ट्स पर किया जा सकता है (Ada 2012-TC-1 के बाद से)।

वाक्य - विन्यास

समारोह Scalar'Image (तर्क: Scalar'Base) स्ट्रिंग;
समारोह Discrete'Image (तर्क: Discrete'Base) स्ट्रिंग;
समारोह Integer'Image (तर्क: Integer'Base) रिटर्न स्ट्रिंग;
फ़ंक्शन Enumeration'Image (तर्क: Enumeration'Base) रिटर्न स्ट्रिंग;
समारोह Real'Image (तर्क: Real'Base) स्ट्रिंग;
समारोह Numeric'Image (तर्क: Numeric'Base) स्ट्रिंग;
समारोह Scalar'Value (तर्क: स्ट्रिंग) वापसी Scalar'Base;
function Discrete'Value (तर्क: स्ट्रिंग) वापसी Discrete'Base;
समारोह Integer'Value (तर्क: स्ट्रिंग) वापसी Integer'Base;
समारोह Enumeration'Value (तर्क: स्ट्रिंग) वापसी Enumeration'Base;
समारोह Real'Value (तर्क: स्ट्रिंग) वापस Real'Base;
समारोह Scalar_Object 'छवि वापसी स्ट्रिंग;

टिप्पणियों

ध्यान दें कि 'Image क्रियान्वित परिभाषित परिणाम (आरएम 3.5) को लागू कर सकती है, अर्थात् जब String परिणाम के लिए आवश्यक कुछ ग्राफिक वर्ण Character में परिभाषित नहीं होते हैं। 'Wide_Image और 'Wide_Wide_Image के बड़े प्रदर्शनों पर विचार करें।

एडा 2012 (टीसी -1)

विशेषता __Scalar_Object__'Image को किसी ऑब्जेक्ट पर सीधे उपयोग करने की अनुमति एडीए 2012-टीसी -1 (अप्रैल 2016) में जोड़ी गई थी।

छवि विशेषता का उपयोग करके फ्लोट प्रिंट करें

एडा 2012 (टीसी -1)

with Ada.Text_IO;

procedure Main is
   type Some_Float digits 8 range 0.0 .. 10.0;
   X : Some_Float := 2.71;
begin
   Ada.Text_IO.Put_Line (X'Image);
end Main;

परिणाम

2.71000E+00

छवि विशेषता का उपयोग करके पूर्णांक प्रिंट करें

एडा 2012 (टीसी -1)

with Ada.Text_IO;

procedure Main is
   type Some_Integer is range -42 .. 42;
   X : Some_Integer := 17;
begin
   Ada.Text_IO.Put_Line (X'Image);
end Main;

परिणाम

छवि विशेषता का उपयोग करके गणना को प्रिंट करें

एडा 2012 (टीसी -1)

with Ada.Text_IO;

procedure Main is
   type Fruit is (Banana, Orange, Pear);
   X : Fruit := Orange;
begin
   Ada.Text_IO.Put_Line (X'Image);
   Ada.Text_IO.Put_Line (Pear'Image);
end Main;

परिणाम

ORANGE
PEAR

विशेषता छवि का उपयोग करके गणना को प्रिंट करें

with Ada.Text_IO;

procedure Main is
   type Fruit is (Banana, Orange, Pear);
   X : Fruit := Orange;
begin
   Ada.Text_IO.Put_Line (Fruit'Image (X));
end Main;

परिणाम

ORANGE

विशेषता छवि का उपयोग करके पूर्णांक प्रिंट करें

with Ada.Text_IO;

procedure Main is
   X : Integer := 17;
begin
   Ada.Text_IO.Put_Line (Integer'Image (X));
end Main;

परिणाम

विशेषता छवि का उपयोग करके फ्लोट प्रिंट करें

with Ada.Text_IO;

procedure Main is
   X : Float := 2.71;
begin
   Ada.Text_IO.Put_Line (Float'Image (X));
end Main;

परिणाम

2.71000E+00

जैसा कि उलटा

with Ada.Text_IO;

procedure Image_And_Value is
   type Fruit is (Banana, Orange, Pear);
   X  : Fruit := Orange;
begin
   Ada.Text_IO.Put_Line (Boolean'Image
      (Fruit'Value (Fruit'Image (X)) = X
          and
       Fruit'Image (Fruit'Value ("ORANGE")) = "ORANGE"));
end Image_And_Value;

परिणाम

TRUE

Modified text is an extract of the original Stack Overflow Documentation

के तहत लाइसेंस प्राप्त है CC BY-SA 3.0

से संबद्ध नहीं है Stack Overflow

ada
छवि संलग्न करें

खोज…

परिचय

वाक्य - विन्यास

टिप्पणियों

छवि विशेषता का उपयोग करके फ्लोट प्रिंट करें

परिणाम

छवि विशेषता का उपयोग करके पूर्णांक प्रिंट करें

परिणाम

छवि विशेषता का उपयोग करके गणना को प्रिंट करें

परिणाम

विशेषता छवि का उपयोग करके गणना को प्रिंट करें

परिणाम

विशेषता छवि का उपयोग करके पूर्णांक प्रिंट करें

परिणाम

विशेषता छवि का उपयोग करके फ्लोट प्रिंट करें

परिणाम

जैसा कि उलटा

परिणाम