델피의 클래스 이해하기(10) - 깊이 있는 방법[23] - 재부팅

1032 단어 Delphi


{

         ,       ,         overload    ;

     ,                    ;

       .

}



function MyFun(s: string): string; overload;

begin

  Result := '        : ' + s;

end;



function MyFun(i: Integer): string; overload;

begin

  Result := '       : ' + IntToStr(i);

end;



function MyFun(x,y: Integer): string; overload;

begin

  Result := Format('       : %d   %d', [x,y]);

end;





{  }

procedure TForm1.Button1Click(Sender: TObject);

var

  str: string;

begin

  str := MyFun('  ');

  ShowMessage(str);     {        :   }



  str := MyFun(99);

  ShowMessage(str);     {       : 99}



  str := MyFun(6,8);

  ShowMessage(str);     {       : 6   8}

end;


 
   
// , , : function MyFun(x,y: Integer): string; overload; begin Result := IntToStr(x + y); end; function MyFun(x: Integer; y: Integer = 1): string; overload; begin Result := IntToStr(x + y); end; { : MyFun(a,b); !}

좋은 웹페이지 즐겨찾기