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=-2.9 required=5.0 tests=BAYES_00,MAILING_LIST_MULTI autolearn=unavailable autolearn_force=no version=3.4.4 X-Google-Thread: 103376,63fa88e2f1a3ebea X-Google-Attributes: gid103376,public X-Google-Language: ENGLISH,ASCII-7-bit Path: g2news1.google.com!news1.google.com!newsread.com!news-xfer.newsread.com!newspeer.monmouth.com!uvsq.fr!freenix!news.enst.fr!melchior!cuivre.fr.eu.org!melchior.frmug.org!not-for-mail From: Preben Randhol Newsgroups: comp.lang.ada Subject: Re: Universal type in Ada Date: Wed, 15 Jun 2005 16:37:46 +0200 Organization: PVV Message-ID: References: <1a7ughq9xrk30.1q7sknowaq5or.dlg@40tude.net> NNTP-Posting-Host: lovelace.ada-france.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: melchior.cuivre.fr.eu.org 1118846286 29617 212.85.156.195 (15 Jun 2005 14:38:06 GMT) X-Complaints-To: usenet@melchior.cuivre.fr.eu.org NNTP-Posting-Date: Wed, 15 Jun 2005 14:38:06 +0000 (UTC) To: comp.lang.ada@ada-france.org Return-Path: Content-Disposition: inline In-Reply-To: <1a7ughq9xrk30.1q7sknowaq5or.dlg@40tude.net> User-Agent: Mutt/1.4i X-Virus-Scanned: by amavisd-new-20030616-p10 (Debian) at ada-france.org X-BeenThere: comp.lang.ada@ada-france.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Gateway to the comp.lang.ada Usenet newsgroup" List-Unsubscribe: , List-Post: List-Help: List-Subscribe: , Xref: g2news1.google.com comp.lang.ada:11377 Date: 2005-06-15T16:37:46+02:00 "Dmitry A. Kazakov" wrote on 15/06/2005 (14:00) : > > type Object is abstract tagged null record; > function Factory (...) return Object'Class; > > type My_Special_Object is new Object with ...; > > declare > X : My_Special_Object; > begin > ... > X := My_Special_Object Factory (...)); X := My_Special_Object (Factory (...)); right? Preben