it.NAboutClick (Sender: TObject);. ShowModal;; TForm_Risk_or_Profit. ApplicationEvents1Hint (Sender: TObject);. SimpleText: = Application. Hint;;. p align="justify"> unit Unit2; Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ComCtrls, StdCtrls, Menus, ToolWin, Spin, Grids, Math, AppEvnts,; _for_ready_portfolio = class (TForm ): TToolBar;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TStatusBar;: TMenuItem;: TLabel; _Input_count: TSpinEdit;: TButton; : TLabel; _Input_date: TStringGrid;: TLabel; _Correlation: TStringGrid;: TButton;: TLabel;: TMemo;: TOpenDialog;: TSaveDialog;: TToolButton;: TToolButton;: TToolButton;: TToolButton;: TToolButton;: TToolButton;: TToolButton; : TToolButton;: TToolButton;: TImageList;: TApplicationEvents; NMinRiskClick (Sender: TObject); NExitClick (Sender: TObject); NMaxProfitClick (Sender: TObject); BCalculationClick (Sender: TObject); FormCreate (Sender: TObject); FormClose (Sender : TObject; var Action: TCloseAction); SG_Input_dateKeyPress (Sender: TObject; var Key: Char);
// procedure FormShow (Sender: TObject); SG_CorrelationKeyPress (Sender: TObject; var Key: Char); SE_Input_countChange (Sender: TObject); BClearClick (Sender: TObject); SG_CorrelationSelectCell (Sender: TObject; ACol,: Integer; var CanSelect: Boolean); SG_CorrelationExit (Sender: TObject); SG_CorrelationMouseUp (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer); NOpenClick (Sender: TObject); NSaveClick (Sender: TObject ); NAboutClick (Sender: TObject); ApplicationEvents1Hint (Sender: TObject);
{Private declarations}
{Public declarations}; myarray = array [1 .. 100] of real; = array [1 .. 100,1 .. 100] of real; Form_for_ready_portfolio: TForm_for_ready_portfolio;, SelectedRow, SelectedCol: integer; Unit1, UAboutMe;
{$ R *. dfm} TForm_for_ready_portfolio.NMinRiskClick (Sender: TObject); _for_ready_portfolio. Visible: = False; _Risk_or_Profit.RG_Risk_or_Profit. ItemIndex: = 0; _Risk_or_Profit. Show;; TForm_for_ready_portfolio.NExitClick (Sender: TObject);;; TForm_for_ready_portfolio.NMaxProfitClick (Sender: TObject); _for_ready_portfolio. Visible: = False; _Risk_or_Profit.RG_Risk_or_Profit. ItemIndex: = 1; _Risk_or_Profit. Show;; TForm_for_ready_portfolio.BCalculationClick (Sender: TObject); profitability_of_portfolio, deviation_of_portfolio: real; _of_stocks, i, j: integer;, sum: real; _of_stocks, deviation_of_stocks, equity_share: myarray; _of_stocks: = SE_Input_count. Value;: = 0; i: = 1 to number_of_stocks do_share [i]: = strtofloat (SG_Input_date. Cells [i, 1]); ('Вибачте, Ви не ввели частку' + intToStr (i) + '-ої паперу! ');;;: = sum + equity_share [i]; _of_stocks [i]: = strtofloat (SG_Input_date. Cells [i, 2]); (' Вибачте, Ви не ввели прибутковість '+ intToStr (i) +'-ой паперу! &...
