align="justify"> for i: = 1 to SEValue do
begin: = StrToFloat (SG_Input_date.Cells [i, 1]);: = 0;; (f, a);;
// записуємо у файл ріскіi: = 1 to SEValue do: = StrToFloat (SG_Input_date.Cells [i, 2]);: = 0;; (f, a);;
// записуємо у файл корреляціюi: = 1 to SEValue doj: = 1 to SEValue do: = StrToFloat (SG_Correlation.Cells [i, j]);: = 0;; (f, a) ;;
// записуємо у файл доліi: = 1 to SEValue do: = 0; (f, a);; (f);;; TForm_Risk_or_Profit.NAboutClick (Sender: TObject);. ShowModal;; TForm_Risk_or_Profit.ApplicationEvents1Hint (Sender: TObject);. SimpleText: = Application.Hint;;.
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);;; TForm_for_ready_portfolio.NMaxProfitClick (Sender: to number_of_stocks do_share [i]: = strtofloat (SG_Input_date.Cells [i, 1]);
except ('Вибачте, Ви не ввели частку' + intToStr (i) + '-ої паперу!');;;: = sum + equity_share [i]; _of_stocks [i]: = strtofloat (SG_Input_date.Cells [i, 2]);
except ('Вибачте, Ви не ввели прибутк...
