-
. .. gor@applmat.msk.su, " "! , , , - .
, , , . , , , , , , . , ...
, . . , : " ?"
. , . , , , , - . , . , - . , , .
, . , - , .
. , ++ MS Windows . , - Borland C++ [1]. , , , , , . " ".
? , . (!) . , . , , (.1).
1.
Borland
C++.
, - . , , . , , , , , . , , , , , , . , .
, . , , Borland C++.
, - : ; , , ; , ; ; . , , , . , , :
MENUITEM , - , , , . ( MENUITEM , .) " " CM_ABOUT, , , MENUITEM:
MENUITEM " ", CM_ABOUT . , : , . , - : , , , . , , , , .
, : ++, , (# 1) , . - ? , .
, , MENUITEM CM_ABOUT. , Windows :
#define CM_ABOUT 213
#define , , - , . : ++ - . (# 2).
, Borland C++ , , . CM_ABOUT CmAbout:
EV_COMMAND (CM_ABOUT, CmAbout)
: , . (# 3), .
. CmAbout ( ) , (# 4). , , CmAbout, (# 5).
, . , , . , , , .
. c : Text - , MessageName - , Message Number - , FunctionName - .. , OurMenu - .
, , #Set. , , . , :
#Set OurMenu
EV_COMMAND (#MessageName, #FunctionName),
#End
EV_COMMAND, , .
#Set . - - (OurMenu), . #Set, , , '#'. #End.
#Set : , , . , , #Set.
#Set? . , , , .
- . : , , , . #Set : , , , #Set, .
, , () (). , - . , , , .
. , ( ) ( ) , . , #Set- , - .
#Set- . , : OurMenu. , . , .
, , . -, - , , , , : , . #Set-, , . , #Set-, .
, #Set- . , , : - , ? , , , ? , , Borland - Delphi [2, 3].
Delphi - , . Delphi , MS Windows: , , , .. , , , - . , begin end.
Delphi . (, - Borland C++, Delphi, - .) , , . , , (" ") .. , . , , Delphi , , .
Delphi . , " - ", - " () - ".
, , - , . , . , , .
, , , Delphi " - ". , . , Delphi , - Delphi , , Delphi . .
- , Delphi, , , , [3] Delphi (BEGIN), , (begin). Delphi, , ? , . , - #Set- , , .
, Delphi , . , : , , (, ), . , , #Set-.
. , . : ; , ; , ; ; ..
, - - , . . . . , .
, . , (!) , . , , :
TPayment =
CLASS(TObject) {one element in the amortization table}
PaymentNum : Integer; PayPrincipal : Real; PayInterest : Real; PrincipalSoFar : Real; InterestSoFar : Real; ExtraPrincipal : Real; Balance : Real;
PROCEDURE GetStringForm
(VAR
StrPayNum, StrPayPrin, StrPayInt, StrPrinSoFar, StrIntSoFar, StrExtraPrin, StrBalance : String15);
END;
, , .
-, , . . -, ( ) , - , - . , . . - - , ( ) ( ).
#Set- . , #Set-. , , , , .
, , , - . , - .
(1) , , , .
(2) , , , , , .
- , , , " " " ". , , , .
(1) . , . - , . - , . [4].
, . , . . , , , , , , , (1) (2).
, (1) . .
-, . , , . , , , - , .
-, , "". . (1) , . , : , " " " ". , , , , "", ..
. #Set-, , . , , .
(2). . , . , , . , . , : , . .
, - #Set-, . #Variant, . #Variant (. 2). , , , . , ; , - .
2.
.
, , . #Variant :
#Variant .
- ( ), - .
#Set-, , #Variant . , #Variant . , , , :
#Variant Method
Method - .
, , #Variant. <- .
, #Set #Variant : . , (2), . , [4], : .
, (1) (2) , . . , .
( ++, , Java). , , - , , , , - . .
- . - Delphi. , .
- , #Variant #Set. , . , , - , .
, . , , , .
[1]. . Windows Borland C++. - .: , 1995 . - 480 .
[2]. . Delphi Windows95. - : , 1996 . - 480 .
[3]. ., ., . Delphi. - : , 1995 . - 608 .
[4]. - .. . . - 2- ., . . - .: , 1994 . - 272 .
10.11.2021 - 12:37: - Personalias -> WHO IS WHO - - _. 10.11.2021 - 12:36: - Conscience -> . ? - _. 10.11.2021 - 12:36: , , - Upbringing, Inlightening, Education -> ... - _. 10.11.2021 - 12:35: - Ecology -> - _. 10.11.2021 - 12:34: , - War, Politics and Science -> - _. 10.11.2021 - 12:34: , - War, Politics and Science -> . - _. 10.11.2021 - 12:34: , , - Upbringing, Inlightening, Education -> , - _. 10.11.2021 - 09:18: - New Technologies -> , 5G- - _. 10.11.2021 - 09:18: - Ecology -> - _. 10.11.2021 - 09:16: - Ecology -> - _. 10.11.2021 - 09:15: , , - Upbringing, Inlightening, Education -> - _. 10.11.2021 - 09:13: , , - Upbringing, Inlightening, Education -> - _. |