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.3 required=5.0 tests=BAYES_00,INVALID_MSGID,
	LOTS_OF_MONEY autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,505c160a1e5afd4e
X-Google-Attributes: gid103376,public
From: michael@ifr16.luftfahrt.uni-stuttgart.de (Michael Paus)
Subject: Re: Desperatly Seeking Streams!
Date: 1997/05/12
Message-ID: <5l7eui$3m5s@info4.rus.uni-stuttgart.de>#1/1
X-Deja-AN: 241265793
References: <01bc5ee4$53717470$180010ac@glen>
Organization: Comp.Center (RUS), U of Stuttgart, FRG
Newsgroups: comp.lang.ada
Date: 1997-05-12T00:00:00+00:00
List-Id: <comp.lang.ada>


In <01bc5ee4$53717470$180010ac@glen> "Glenn Lambkin" wrote:
> I am trying to use stream packages in a small ada program,
> and I desperatly need information on how to use ada.streams.stream_io,
> to read an integer from a file which already exists.

Just open the file in the same way as you would do with Text_IO but use
the package Ada.Streams.Stream_IO instead.

declare
	File           : File_Type;
	S              : Stream_Access;
	Value      : Integer;
begin
	Open (File, In_File, "My_File");
	S := Stream (File);
	Integer'Read (S, Value);
	Close (File);
end;