|
µ¨¸¶´ç °ø½Ä ÀºÇà°èÁ |
ÇϳªÀºÇà 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¸¦ È£ÃâÇߴµ¥µµ ÀÚ½Ä Å¬·¡½º°¡ È£ÃâµÇ´Âµ¥ ÀÌ°Ô Á¤»óÀΰ¡¿ä?
¸¸¾à Á¤»óÀ̶ó¸é Ŭ·¡½º °øºÎ ´Ù½ÃÇؾ߰ڳ׿ä.... µ¨ÆÄÀÌ Á¦¹ý ¿À·¡ Çß´Ù°í »ý°¢Çϴµ¥ ±âÃÊ°¡ ¸Å¿ì ºÎ½ÇÇÏ´Ü°Ô ´À²¸Áý´Ï´Ù. ¤Ð¤Ð
|
|
|
|
|
|
|
|
|