From: Marius Amado Alves <maa@liacc.up.pt>
To: comp.lang.ada@ada-france.org
Subject: Re: read file into array to compare
Date: Tue, 9 Mar 2004 13:27:19 +0000
Date: 2004-03-09T13:27:19+00:00 [thread overview]
Message-ID: <mailman.82.1078838053.327.comp.lang.ada@ada-france.org> (raw)
In-Reply-To: <98776e3e.0403090355.7d2f402e@posting.google.com>
> Could someone give me a start please.
> a scratchy example would be ideal.
procedure Scratchy_Example is
type Record is array (1 .. 3) of Unbounded_String;
A, B : Record;
No_More_Records : exception;
procedure Get_Record (X : out Record) is ...
function Upto_Comma (X : Unbounded_String) return String is ...
...
begin
loop
Get_Record (A);
Get_Record (B);
if Upto_Comma (A (1)) = Upto_Comma (B (1)) and A (3) = B (3) then
Show_Records;
end if;
end loop;
exception
when No_More_Records => Done;
end;
prev parent reply other threads:[~2004-03-09 13:27 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
2004-03-09 11:55 read file into array to compare david
2004-03-09 12:14 ` Samuel Tardieu
2004-03-09 12:19 ` Preben Randhol
2004-03-09 13:27 ` Marius Amado Alves [this message]
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox