귀하는 손님 이십니다
로그인
회원가입
  
  델마당 공식 은행계좌
  하나은행 227-910235-83607
  예금주 이상국(운영진)
프로젝트 게시판
투표게시판
델마당소개
기초부터 활용까지! 델파이 교육 - 데브기어
 광고문의 :
吏덈Ц怨 떟蹂 吏덈Ц怨 떟蹂 입니다.
글내용 - 吏덈Ц怨 떟蹂
 [吏덈Ц] 씠 옱誘몃궃 떎뿕뿉 빐 떟쓣 븘떆뒗 遺?
梨⑤━釉뚮씪슫
(沅뚭킅씪)
2019-05-03 삤썑 7:01:37
450회 조회


등록된 파일이 없습니다.

궓쓽 냼뒪 遺꾩꽍븯떎媛 옱誘몃궃 肄붾뱶媛 蹂댁뿬꽌 뿬윭遺꾨뱾猿섎룄 蹂댁뿬뱶由쎈땲떎.

븘二 媛꾨떒븯硫댁꽌 옱誘몃궃 肄붾뱶씠땲 븳踰 遊 二쇱떆湲 諛붾엻땲떎.

 

븘옒 泥섎읆 뼱뼡 硫붿꽌뱶媛 엳뒿땲떎.

 procedure Check (  AValue : boolean );

씠 硫붿꽌뱶쓽 留ㅺ컻蹂닔쓽 뜲씠꽣 엯 boolean 엯땲떎.

 

 洹몃윴뜲 洹 留ㅺ컻蹂닔뿉떎媛 븘옒 媛숈 吏볦쓣 븯硫 boolean 엯씠 븘땲뜑씪룄

而댄뙆씪씠 맗땲떎.

1. Check( nil = nil );  而댄뙆씪 맖.

2. Check(  TObj = nil  );  而댄뙆씪맖.

3. Check(  TObj.Create = nil  );  而댄뙆씪맖.

 

TObj 뒗 엫쓽濡 留뚮뱺 겢옒뒪엯땲떎.

TObj = class

end;

 

4. Check( nil );  떦뿰엳 씠嫄 而댄뙆씪 븞맗땲떎.

 

솢 1, 2, 3, 踰덉씠 而댄뙆씪씠 릺硫 윴떇쑝濡 留ㅺ컻蹂닔瑜

꽆湲곌쾶 릺硫 뼱뼡 쓽誘몃 媛吏뒗吏 紐낇솗븯寃 븘떆뒗遺 엳쑝떊媛슂?

nil 뜲씠꽣 엯뿉 빐 븳踰덈뜑 깮媛곹븯寃 留뚮뱶뒗 肄붾뱶씪

뿬윭遺꾨뱾猿 뿬彛덉뼱 遊낅땲떎.

 

[ 젣媛 뀒뒪듃븳 肄붾뱶 엯땲떎. ]

 

unit Unit1;

interface

uses
  Forms, Controls, StdCtrls, Classes;

type
  TObj = class
  end;

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure Check( AValue : boolean);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

var
  obj : TObj;

{$R *.dfm}

{ TForm1 }

procedure TForm1.Check(AValue: boolean);
begin
{ TODO : TODO }
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Check( True);      // 而댄뙆씪 ok
  Check(TObj = nil); // 而댄뙆씪 ok
  Check( nil = nil );// 而댄뙆씪 ok
  Check( TObj.Create = nil );//而댄뙆씪 ok

  //Check( nil ); // 而댄뙆씪 ng
end;


end.