Вывод переменных

// Пример вывода переменных.

Var F_Зима :Extended = 0;

Var G1_сет :Extended = 12000;

Var G2_сет :Extended = 7800;

Var n_к41 :Extended = 1;

Var n_к42 :Extended = 1;

Var r_т :Extended = 0.04;

Var t_ист :Extended = 14;

Var t_нв :Extended = 21;

Var W_БНС :Extended = 18000;

 

procedure Показ_Переменных;

Var frmDlg : TForm;

Memo : TMemo;

s : String;

ic ,  ir : Integer;

begin

frmDlg := TForm.Create(nil);

frmDlg.Caption := 'Показ переменных';

frmDlg.BorderStyle:= bsSizeable; // bsDialog;

frmDlg.Width      := 600;

frmDlg.Height     := 300;

frmDlg.Position   := poScreenCenter; // По центру экрана

 

Memo := TMemo.Create(frmDlg);

Memo.Parent := frmDlg;

Memo.Align  := alClient;

Memo.WordWrap:= False;

F_Зима   :=  F_GetUFValue('F_Зима'); // Получение данных пользователя

n_к41    :=  F_GetUFValue('n_к41');

n_к42    := F_GetUFValue('n_к42');

t_нв    :=  F_GetUFValue('t_нв');

t_ист    :=  F_GetUFValue('t_ист');

G1_сет    :=  F_GetUFValue('G1_сет');

r_т    :=  F_GetUFValue('r_т');

 

Memo.Lines.add(

' F_Зима := ' + floatToStr(F_Зима) +

' n_к41  := ' + floatToStr(n_к41) +

' n_к42  := ' +  floatToStr(n_к42) );

 

Memo.Lines.add(

' t_нв := ' + floatToStr(t_нв) +

' t_ист:= ' + floatToStr(t_ист) +

' G1_сет:= ' + floatToStr(G1_сет) +

' G2_сет:= ' + floatToStr(G2_сет) +

'r_т    := ' + floatToStr(r_т) );

Memo.Lines.add(format('%5s %f ' , ['W_БНС := ' , W_БНС] ) );

frmDlg.ShowModal; // Показ диалога

frmDlg.Free;

end;

//{DEF_SAMPLE}  Показ_Переменных;

begin

Показ_Переменных;

end.