Конвертер физических величин

            end;

          f_Abs:=f_Rez1+273.15;

        end;

 

      if ComboBox1.ItemIndex+1=2  then // кельвин

        begin

          if ComboBox2.ItemIndex+1=1 then  // цельсии

            begin

              f_Rez1:=StrToFloat(Edit1.Text);

              f_Rez:=f_Rez1-273.15;

            end;

          if ComboBox2.ItemIndex+1=2 then  // кельвин

            begin

              f_Rez1:=StrToFloat(Edit1.Text);

              f_Rez:=f_Rez1;

            end;

          if ComboBox2.ItemIndex+1=3 then  // фаренгейт

            begin

              f_Rez1:=StrToFloat(Edit1.Text);

              f_Rez:=32+1.8*(f_Rez1-273.15);

            end;

          f_Abs:=f_Rez1;

        end;

 

      if ComboBox1.ItemIndex+1=3  then // фаренгейт

        begin

          if ComboBox2.ItemIndex+1=1 then  // цельсии

            begin

              f_Rez1:=StrToFloat(Edit1.Text);

              f_Rez:=(f_Rez1-32)/1.8;

            end;

          if ComboBox2.ItemIndex+1=2 then  // кельвин

            begin

              f_Rez1:=StrToFloat(Edit1.Text);

              f_Rez:=(f_Rez1-32)/1.8+273.15;

            end;

          if ComboBox2.ItemIndex+1=3 then  // фаренгейт

            begin

              f_Rez1:=StrToFloat(Edit1.Text);

              f_Rez:=f_Rez1;

            end;

          f_Abs:=(f_Rez1-32)/1.8+273.15;

        end;

    end

  else

    begin

      f_Rez:=StrToFloat(Edit1.Text);

      f_Rez:=f_Rez*a_Units[i_Kat][ComboBox1.ItemIndex+1].convert/a_Units[i_Kat][ComboBox2.ItemIndex+1].convert;

    end;

  str(f_Rez,c_Rez);

  // контроль температуры ниже абсолютного нуля

  if f_Abs<0 then

    Edit2.Text:='Ниже  абсолютного нуля!'

  else

    Edit2.Text:=c_Rez;

 

end;

 

// процедура  заполнения ComboBox-ов новой категорией  величин

// параметр- номер категории

procedure TForm1.sseCombo(i_Kat : integer);

var

  i : integer;

begin

  ComboBox1.Clear;

  ComboBox2.Clear;

  for i := 1 to i_MaxArrayUnit do

    if a_Units[i_Kat][i].name<>'' then

      begin

        ComboBox1.Items.Add(a_Units[i_Kat][i].name);

        ComboBox2.Items.Add(a_Units[i_Kat][i].name);

      end;

  ComboBox1.ItemIndex:=0;

  ComboBox2.ItemIndex:=1;

 

end;

 

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

  close;

end;

 

// при смене  чего-нибудь кроме категории

procedure TForm1.ComboBox1Change(Sender: TObject);

begin

  sseCalk(RadioGroup1.ItemIndex+1);

end;

 

// при смене категории

procedure TForm1.RadioGroup1Click(Sender: TObject);

begin

  sseCombo(RadioGroup1.ItemIndex+1);

  sseCalk(RadioGroup1.ItemIndex+1);

end;

 

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

  AboutBox.ShowModal;

end;

 

end.