Re: [DUG]: polymorphism problem

Wed, 16 Oct 2002 20:36:33 -0700

Title: Message
I agree with Kyley - the code as written always calls the TMetafile.Create
because ImgType is always forced := 1  (ignoring the value passed as a parameter
to the procedure)
 
If you remove the
       ImgType := 1;
then TMetaFile.Create gets called if you pass 1 and TBitMap.Create gets
called if you pass 2
 
 
 
----- Original Message -----
Sent: Thursday, October 17, 2002 10:42
Subject: RE: [DUG]: polymorphism problem

TMetafile.create should get called, and does if i test your code?? sorry can't help,  but your example is functioning correctly
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] On Behalf Of Jianming Lin (ASL)
Sent: Thursday, 17 October 2002 4:36 p.m.
To: Multiple recipients of list delphi
Subject: [DUG]: polymorphism problem


 
G'Day, guys, 
 
procedure TryMetadata(ImgType : Integer);
var NGraphic: TGraphic;
    GraphicClass: TGraphicClass;
begin
  ImgType := 1;
  case ImgType of
    1 :  GraphicClass := TMetaFile;
    2 :  GraphicClass := TBitmap;
  end;
  NGraphic := GraphicClass.Create; 
end;
 
 
Why constructor  of TMetafile.Create is not called instead only TObject.Create is called?
 
 
 
  
[Jianming Lin (ASL)] 
 
 
  
This e-mail message has been scanned for Viruses and Content and cleared by MailMarshal - For more information please visit www.marshalsoftware.com

Reply via email to