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.9 required=5.0 tests=BAYES_00
	autolearn=unavailable autolearn_force=no version=3.4.4
X-Received: by 10.42.75.10 with SMTP id y10mr3378694icj.19.1394054739499;
 Wed, 05 Mar 2014 13:25:39 -0800 (PST)
Path: 
 border1.nntp.dca3.giganews.com!backlog3.nntp.dca3.giganews.com!border3.nntp.dca.giganews.com!border1.nntp.dca.giganews.com!nntp.giganews.com!l13no2088427iga.0!news-out.google.com!bw18ni1408qab.1!nntp.google.com!peer03.iad.highwinds-media.com!news.highwinds-media.com!feed-me.highwinds-media.com!usenet.blueworldhosting.com!feeder01.blueworldhosting.com!news.swapon.de!fu-berlin.de!uni-berlin.de!individual.net!not-for-mail
From: Niklas Holsti <niklas.holsti@tidorum.invalid>
Newsgroups: comp.lang.ada
Subject: Re: Reading data from file
Date: Wed, 05 Mar 2014 23:25:37 +0200
Organization: Tidorum Ltd
Message-ID: <bnpj2hFt7elU1@mid.individual.net>
References: <a8343425-3e25-4592-a5f5-5395f4a70221@googlegroups.com>
 <orIsCUDPahFTFwJN@ada-augusta.demon.co.uk>
 <9b780534-04fb-43c8-b8de-1610421c471d@googlegroups.com>
 <u4odG4BP3yFTFwZb@ada-augusta.demon.co.uk>
 <df64ee54-cb10-41a6-8521-39a1ca46291b@googlegroups.com>
 <lf83a7$mqa$1@dont-email.me>
 <3b08719c-e689-4170-9c1c-3f9250030dd6@googlegroups.com>
Mime-Version: 1.0
X-Trace: individual.net ZOSRO3t5jV3Y8kujg6Rm6w+g/UICkYQw1sSrANgleqDSQZtWIe
Cancel-Lock: sha1:KGKlgPu4PT5mMN1E4rNOy/zHams=
User-Agent: Mozilla/5.0 (Macintosh; Intel Mac OS X 10.8;
 rv:24.0) Gecko/20100101 Thunderbird/24.3.0
In-Reply-To: <3b08719c-e689-4170-9c1c-3f9250030dd6@googlegroups.com>
X-Received-Bytes: 1701
X-Received-Body-CRC: 1446689243
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit
X-Original-Bytes: 2077
Xref: number.nntp.dca.giganews.com comp.lang.ada:185136
Date: 2014-03-05T23:25:37+02:00
List-Id: <comp.lang.ada>

On 14-03-05 23:13 , Laurent wrote:
> It is this what he meant?
> 
> Ada.Integer_Text_IO.Get (File => Import_File, Item => Temp_Record.ID);
> Ada.Text_IO.Skip_Line;
> Ada.Text_IO.Get_Line(File => Import_File, Item => Temp_Record.Name,Last => Name_Length);
> 
> That doesn't work.

You have to do

   Ada.Text_IO.Skip_Line (Import_File);

Just Skip_Line with no parameters skips a line on Standard_Input, which
is not what you want.

I'm sorry if my suggestion was unclear.

-- 
Niklas Holsti
Tidorum Ltd
niklas holsti tidorum fi
      .      @       .