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=ham
	autolearn_force=no version=3.4.4
X-Google-Thread: 103376,1e08410099d337f8
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!news4.google.com!news.glorb.com!tiscali!newsfeed1.ip.tiscali.net!news.cid.net!fu-berlin.de!uni-berlin.de!individual.net!not-for-mail
From: Vinzent 'Gadget' Hoefler <nntp-2004-12@t-domaingrabbing.de>
Newsgroups: comp.lang.ada
Subject: Re: creating own Image function
Date: Wed, 29 Dec 2004 17:01:50 +0000
Message-ID: <2930910.rxzLaiY3s9@jellix.jlfencey.com>
References: <1104339103.436794.134250@f14g2000cwb.googlegroups.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7Bit
X-Trace: individual.net wFKDtDQ9GAAZetfN6ia75QFTkCJ22UliVvuOT2ejnm2e1CTlov
X-Phone: +41 62 961 13 52
Xref: g2news1.google.com comp.lang.ada:7297
Date: 2004-12-29T17:01:50+00:00
List-Id: <comp.lang.ada>

R wrote:

> I've written my own Image function it's sth like Java's toString.
> 
> function Image(this: rec1) return String is
> tmp : String(1..26);
> begin
> tmp := "The value of field is:" & Integer'Image(Get(this));
> return tmp;
> end Image;

|function Image (This : Rec1) return String is
|begin
|   return "The value of field is:" & Integer'Image(Get(This));
|end Image;

"tmp" is unnecessary here. And: If you *really* need strings with
non-fixed size, use Unbounded_String.


Vinzent.