home *** CD-ROM | disk | FTP | other *** search
/ Chip 1995 March / CHIP3.mdf / programm / prog4 / teststrn.ada < prev    next >
Encoding:
Text File  |  1991-07-01  |  652 b   |  35 lines
  1.                                       -- Chapter 31 - Program 4
  2. with Text_IO; use Text_IO;
  3. with DynStrng; use DynStrng;
  4.  
  5. procedure TestStrn is
  6.  
  7.    package Int_IO is new Text_IO.Integer_IO(INTEGER);
  8.    use Int_IO;
  9.  
  10.    Stuff    : DYNAMIC_STRING(35);
  11.    Result   : BOOLEAN;
  12.  
  13. begin
  14.  
  15.    Copy("ABCDEFGHIJKL$",Stuff,Result);
  16.    Put(Size_Of(Stuff));
  17.    Put(Length(Stuff));
  18.    Put(Stuff);
  19.    New_Line;
  20.  
  21.    Copy("ABCD$",Stuff,Result);
  22.    Put(Size_Of(Stuff));
  23.    Put(Length(Stuff));
  24.    Put(Stuff);
  25.    New_Line;
  26.  
  27.    Copy("",Stuff,Result);
  28.    Put(Size_Of(Stuff));
  29.    Put(Length(Stuff));
  30.    Put(Stuff);
  31.    New_Line;
  32.  
  33. end TestStrn;
  34.  
  35.