Delphi . . .
- , , , . , , .
, , . overload. 4.9.
4.9.
Unit DeclaringOverloads Interface
Function GetName(A:
Implementation
( } { } Function GetName(S: String): String; overload;
{ GetName } Integer): String; overload;
{ GetName } { } Uses
SysUtils; { SysUtils
IntToStr}
Function GetName(S: String): String; overload; begin
Result:= S;
end; { GetName
, }
Function GetName(A: Integer): String; overload; begin
Result:= IntToStr (A); { GetName , }
end;
End. { }
. , - , . , Exit:
Procedure Exit;
Exit , . Exit , , .
, Exit , , .
|
|
, Delphi , .
. :
< > = Procedure(< >)
:
< > = Function (< >): < >;
Var , :
Var
fSin = Function(X: Double): Double;
, . , , . :
< > = < :*;
, , :
< >(< >);
, , ( 4.10).