±ÍÇÏ´Â ¼Õ´Ô À̽ʴϴÙ
·Î±×ÀÎ
ȸ¿ø°¡ÀÔ
  
  µ¨¸¶´ç °ø½Ä ÀºÇà°èÁÂ
  ÇϳªÀºÇà 227-910235-83607
  ¿¹±ÝÁÖ ÀÌ»ó±¹(¿î¿µÁø)
ÇÁ·ÎÁ§Æ® °Ô½ÃÆÇ
ÅõÇ¥°Ô½ÃÆÇ
µ¨¸¶´ç¼Ò°³
±âÃʺÎÅÍ È°¿ë±îÁö! µ¨ÆÄÀÌ ±³À° - µ¥ºê±â¾î
Áú¹®°ú ´äº¯ Áú¹®°ú ´äº¯ ÀÔ´Ï´Ù.
±Û³»¿ë - Áú¹®°ú ´äº¯
 [Áú¹®] °£´ÜÇÑ »ó¼Ó, ÀÌ°Ô Á¤»óÀΰ¡¿ä? 
³×¸ð¼¼¸ð
(±èÈ£¸²)
2017-07-22 ¿ÀÈÄ 6:16:55
826ȸ Á¶È¸


µî·ÏµÈ ÆÄÀÏÀÌ ¾ø½À´Ï´Ù.
1. °³¹ß/½ÇÇà Ç÷§Æû 
  (1) OS : widows7
  (2) °³¹ßÅø : delphi7
  (3) »ç¿ë Database : 

2. °³¹ß ÁßÀΠÇÁ·Î±×·¥ 

3. Áú¹® ³»¿ë 

type
  TClassA = class
  public
    procedure ShowMe; virtual;
  end;

  TClassB = class(TClassA)
  public
    procedure ShowMe; override;
  end;

implementation

procedure TClassA.ShowMe;
begin
  ShowMessage('TClassA');
end;

procedure TClassB.ShowMe;
begin
  inherited;
  ShowMessage('TClassB');
end;

TClassA, TClassB°¡ À§¿Í °°Àº »ó¼Ó°ü°è·Î ÀÖÀ» ¶§...
Àú Å¬·¡½º¸¦ »ç¿ëÇϴ Ãø¿¡¼­

procedure TForm1.Button1Click(Sender: TObject);
var
  ptr: Pointer;
begin
  ptr := TClassB.Create;
  TClassA( ptr ).ShowMe;
end;

Áö±Ý󷳠ȣÃâÀ» ÇßÀ» ¶§, 
Á¦°¡ ±â´ëÇß´ø °á°ú´Â
ShowMessage('TClassA') ¿´´Âµ¥

½ÇÁ¦ ³ªÅ¸³­ °á°ú´Â
ShowMessage('TClassA') °¡ ³ª¿Â ÈÄ ¸Þ½ÃÁöâ ´ÝÀ¸¸é
ShowMessage('TClassB') °¡ µÚµû¶ó ³ª¿É´Ï´Ù.

TClassB( ptr ).ShowMe; ¸¦ È£ÃâÇߴٸ頴翬ÇÑ °á°ú°ÚÁö¸¸
¸í½ÃÀûÀ¸·Î TClassA( ptr ) Å¸ÀÔº¯È¯À» Çؼ­ ShowMe¸¦ È£ÃâÇߴµ¥µµ
ÀڽĠŬ·¡½º°¡ È£ÃâµÇ´Âµ¥ ÀÌ°Ô Á¤»óÀΰ¡¿ä?

¸¸¾à Á¤»óÀ̶ó¸é Å¬·¡½º °øºÎ ´Ù½ÃÇؾ߰ڳ׿ä....
µ¨ÆÄÀÌ Á¦¹ý ¿À·¡ Çß´Ù°í »ý°¢Çϴµ¥
±âÃÊ°¡ ¸Å¿ì ºÎ½ÇÇÏ´Ü°Ô ´À²¸Áý´Ï´Ù. ¤Ð¤Ð