From mboxrd@z Thu Jan 1 00:00:00 1970 X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me X-Spam-Level: * X-Spam-Status: No, score=1.2 required=5.0 tests=BAYES_00,FROM_WORDY, INVALID_MSGID autolearn=no autolearn_force=no version=3.4.4 X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: 103376,acfaafb1304c268b X-Google-Attributes: gid103376,public From: "daniel gaudry" Subject: Re: converting strings to floats/integers Date: 1998/08/26 Message-ID: <6s1qh2$nlh$1@platane.wanadoo.fr>#1/1 X-Deja-AN: 385038294 References: <6s13es$5c8$1@nnrp1.dejanews.com> X-MimeOLE: Produced By Microsoft MimeOLE V4.72.3110.3 Organization: Wanadoo - (Client of French Internet Provider) Newsgroups: comp.lang.ada Date: 1998-08-26T00:00:00+00:00 List-Id: it easy if you know how that's the manual 27 procedure Get(From : in String; Item : out Num; Last : out Positive); 28 Reads a real value from the beginning of the given string, following the same rule as the Get procedure that reads a real value from a file, but treating the end of the string as a file terminator. Returns, in the parameter Item, the value of type Num that corresponds to the sequence input. Returns in Last the index value such that From(Last) is the last character read. here is an example s : string (1..10) := "1.20 "; f : float l : integer; begin Get(From => s;, Item => f, Last => l);