Correlation. Cells [SelectedCol, SelectedRow]: = '0 ';; _Correlation. Cells [SelectedCol, SelectedRow]: = '0 '; _Correlation. Cells [SelectedRow, SelectedCol]: = '0 ';;; TForm_for_ready_portfolio.SG_CorrelationMouseUp (Sender: TObject;: TMouseButton; Shift: TShiftState; X, Y: Integer); _CorrelationExit (Sender);; TForm_for_ready_portfolio.NOpenClick (Sender: TObject) ; f: file of real;, j: integer;: real; OpenDialog1. Execute then (Sender); (f, OpenDialog1. FileName); (f);. MessageBox ('Вибачте, неможливо відкрити файл!', 'Помилка!'); p align="justify"> end; (f, a);: = round (a); _Input_count. Value: = SEValue;
// зчитуємо з файлу доходностіi: = 1 to SEValue do
begin (f, a); _Input_date. Cells [i, 2]: = FloatToStr (a);;
// зчитуємо з файлу ріскіi: = 1 to SEValue do (f, a); _Input_date. Cells [i, 3]: = FloatToStr (a);;
// зчитуємо з файлу корреляціюi: = 1 to SEValue doj: = 1 to SEValue do (f, a); _Correlation. Cells [i, j]: = FloatToStr (a);;
// зчитуємо з файлу доліi: = 1 to SEValue do (f, a); _Input_date. Cells [i, 1]: = FloatToStr (a);; (f);;; TForm_for_ready_portfolio.NSaveClick (Sender: TObject); f: file of real;, j: integer;: real; SaveDialog1. Execute thenExtractFileExt (SaveDialog1. FileName) ='' SaveDialog1. FileName: = SaveDialog1. FileName + '. Tpr'; (f, SaveDialog1. FileName); (f);: = SEValue; (f, a);
// записуємо у файл доходностіi: = 1 to SEValue do
begin: = StrToFloat (SG_Input_date. Cells [i, 2]);: = 0;; (f, a);
end;
// записуємо у файл ризики
for i: = 1 to SEValue do: = StrToFloat (SG_Input_date. Cells [i, 3]);: = 0;; (f, a);
end;
// записуємо у файл кореляцію
for i: = 1 to SEValue doj: = 1 to SEValue do: = StrToFloat (SG_Correlation. Cells [i, j]);: = 0;; (f, a);;
// записуємо у файл доліi: = 1 to SEValue do: = StrToFloat (SG_Input_date. Cells [i, 1]);: = 0;; (f, a);; (f); ;; TForm_for_ready_portfolio.NAboutClick (Sender: TObject);. ShowModal; TForm_for_ready_portfolio. ApplicationEvents1Hint (: TObject);. SimpleText: = Application. Hint;;. br/>
