From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.5-pre1 (2020-06-20) on
	ip-172-31-74-118.ec2.internal
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=3.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.5-pre1
Date: 1 May 93 22:51:51 GMT
From: cis.ohio-state.edu!zaphod.mps.ohio-state.edu!howland.reston.ans.net!darwi
n.sura.net!news-feed-1.peachnet.edu!dekalb.dc.peachnet.edu!dekalb.dc.peachnet.e
du!not-for-mail@ucbvax.Berkeley.EDU  (Melonie Bennett)
Subject: Help!!  (discriminated records)
Message-ID: <1ruuu7$4s9@dekalb.DC.PeachNet.EDU>
List-Id: <comp.lang.ada>

I would appreciate it greatly if someone would give me some help
with a problem I'm having..

The type declaration looks like this:

subtype Length_Range is Integer range 0..21;
private
   type Token(Length : Length_Range := 0) is
    record
       Text: String(1..Length);
    end record;
 Tok : Token;

I'm trying to assign a string called temp which contains ("THIS") 
to text...

I've tried:
            Tok(4).Text := temp;
            Tok(4).Text(1..4) := temp;
            Tok(4).Text(1..4) := temp(1..4);
            Tok.Text := temp;
              
  Unfortunately this is the Prof's specifications so I can't change
  anything....

  I'm using the Meridian 4.1.4 compiler..
 I would greatly appreciate it if someone/anyone could help....


~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~
                                Melonie Bennett  
                    	  melonie@bullen.gatech.edu
                       melonie@dekalb.dc.peachnet.edu 
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~