Re: creating own Image function

[Vinzent 'Gadget' Hoefler <nntp-2004-12@t-domaingrabbing.de>]

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.