Конвертер температуры

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,math;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    ComboBox1: TComboBox;
    Edit2: TEdit;
    ComboBox2: TComboBox;
    procedure FormCreate(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox2CloseUp(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
   CB :Tcombobox;
implementation
 
{$R *.dfm}
 
 
 
procedure TForm1.ComboBox2CloseUp(Sender: TObject);
begin
{--------Cels---------}
//Cels to cels
if (combobox1.ItemIndex=0) and (combobox2.ItemIndex=0 )    then
  begin
  if StrTofloat(Edit1.text)>= -273.15 then
  begin
  Edit2.text:=Edit1.text ;
  end
  else
  begin
  ShowMessage('-273.15 Deg Cel is min') ;
  exit;
  end;
end;
 
 
// Cels to Kelv
if (combobox1.ItemIndex=0) and (combobox2.ItemIndex=1 ) then
 begin
  if StrTofloat(Edit1.text)>= -273.15 then
  begin
  Edit2.text:=FloatTostr(Roundto((StrTofloat(Edit1.text)+273.15),-2))
  end
  else
  begin
  ShowMessage('-273.15 Deg Cel is min') ;
  exit;
  end;
  end;
 
// Cels to Farenh
if (combobox1.ItemIndex=0) and (combobox2.ItemIndex=2 ) then
begin
  if StrTofloat(Edit1.text)>= -273.15 then
  begin
  Edit2.text:=FloatTostr(Roundto((9*(StrTofloat(Edit1.text))/5+32),-2));
  end
  else
  begin
  ShowMessage('-273.15 Deg Cel is min') ;
  exit;
  end;
  end;
 
 
 //Cels to Rankin
if (combobox1.ItemIndex=0) and (combobox2.ItemIndex=3 ) then
 begin
  if StrTofloat(Edit1.text)>= -273.15 then
  begin
  Edit2.text:=FloatTostr(Roundto((StrTofloat(Edit1.text)+273.15)*9/5,-2));
  end
  else
  begin
  ShowMessage('-273.135 Deg Cel is min') ;
  exit;
  end;
  end;
 
  {------------ Kelv---------}
  // Kelv to cels
   if (combobox1.ItemIndex=1) and (combobox2.ItemIndex=0 ) then
 begin
  if StrTofloat(Edit1.text)>= 0 then
  begin
  Edit2.text:=FloatTostr(Roundto((StrTofloat(Edit1.text)+273.15),-2));
  end
  else
  begin
  ShowMessage('0 Deg Kelv is min') ;
  exit;
  end;
  end;
 // Kelv to Kelv
 if (combobox1.ItemIndex=1) and (combobox2.ItemIndex=1 ) then
 begin
  if StrTofloat(Edit1.text)>= 0 then
  begin
  Edit2.text:=Edit1.text;
  end
  else
  begin
  ShowMessage('0 Deg Kelv is min') ;
  exit;
  end;
  end;
 // Kelv to Farenh
 if (combobox1.ItemIndex=1) and (combobox2.ItemIndex=2 ) then
 begin
  if StrTofloat(Edit1.text)>= 0 then
  begin
  Edit2.text:=FloatTostr(Roundto(((StrTofloat(Edit1.text)-273.15)*9/5+32),-2));
  end
  else
  begin
  ShowMessage('0 Deg Kelv is min') ;
  exit;
  end;
  end;
 
 //Kelv to Rankin
  if (combobox1.ItemIndex=1) and (combobox2.ItemIndex=3 ) then
 begin
  if StrTofloat(Edit1.text)>= 0 then
  begin
  Edit2.text:=FloatTostr(Roundto((StrTofloat(Edit1.text)*9/5),-2));
  end
  else
  begin
  ShowMessage('0 Deg Kelv is min') ;
  exit;
  end;
  end;
 {------------ Farenheit---------}
 
    //Faren to cels
    if (combobox1.ItemIndex=2) and (combobox2.ItemIndex=0 ) then
 begin
  if StrTofloat(Edit1.text)>= -459.67 then
  begin
  Edit2.text:=FloatTostr(Roundto(((StrTofloat(Edit1.text)-32)*5/9),-2));
  end
  else
  begin
  ShowMessage('-459.67  DegF is min') ;
  exit;
  end;
  end;
 
  //Faren to kelv
    if (combobox1.ItemIndex=2) and (combobox2.ItemIndex=1 ) then
 begin
  if StrTofloat(Edit1.text)>= -459.67 then
  begin
 Edit2.text:=FloatTostr(Roundto(((StrTofloat(Edit1.text)-32)*5/9+273.15),-2));
  end
  else
  begin
  ShowMessage('-459.67  DegF is min') ;
  exit;
  end;
  end;
 //Faren to Faren
    if (combobox1.ItemIndex=2) and (combobox2.ItemIndex=2) then
 begin
  if StrTofloat(Edit1.text)>= -459.67 then
  begin
 Edit2.text:=Edit1.text
  end
  else
  begin
  ShowMessage('-459.67  DegF is min') ;
  exit;
  end;
  end;
  //Faren to Rankin
    if (combobox1.ItemIndex=2) and (combobox2.ItemIndex=3 ) then
 begin
  if StrTofloat(Edit1.text)>= -459.67 then
  begin
 Edit2.text:=FloatTostr(Roundto((StrTofloat(Edit1.text)+459.67),-2));
  end
  else
  begin
  ShowMessage('-459.67  DegF is min') ;
  exit;
  end;
  end;
 
  {------------ Rankin---------}
   //Rank to cels
   if (combobox1.ItemIndex=3) and (combobox2.ItemIndex=0 ) then
 begin
  if StrTofloat(Edit1.text)>= 0 then
  begin
  Edit2.text:=FloatTostr(Roundto(((StrTofloat(Edit1.text)-491.67)*5/9),-2));
  end
  else
  begin
  ShowMessage('0  DegRa is min') ;
  exit;
  end;
  end;
  //Rank to Kelv
   if (combobox1.ItemIndex=3) and (combobox2.ItemIndex=1 ) then
 begin
  if StrTofloat(Edit1.text)>= 0 then
  begin
  Edit2.text:=FloatTostr(Roundto((((StrTofloat(Edit1.text)-491.67)*5/9)+273.15),-2));
  end
  else
  begin
  ShowMessage('0  DegRa is min') ;
  exit;
  end;
  end;
 //Rank to Faren
   if (combobox1.ItemIndex=3) and (combobox2.ItemIndex=2 ) then
 begin
  if StrTofloat(Edit1.text)>= 0 then
  begin
  Edit2.text:=FloatTostr(Roundto((StrTofloat(Edit1.text)-459.67),-2));
  end
  else
  begin
  ShowMessage('0  DegRa is min') ;
  exit;
  end;
  end;
 //Rank to Rank
   if (combobox1.ItemIndex=3) and (combobox2.ItemIndex=3 ) then
 begin
  if StrTofloat(Edit1.text)>= 0 then
  begin
  Edit2.text:=Edit1.text;
  end
  else
  begin
  ShowMessage('0  DegRa is min') ;
  exit;
  end;
  end;
 
 
 
 
 
end;
 
 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
 
{Puporev Thanks}
begin
 case Key of
  #8,'0'..'9' :  ; // цифры и <Back Space>
 
       '.',',': // разделитель целой и дробной частей числа
                begin
                  if Key <> DecimalSeparator then
                  Key := DecimalSeparator; // заменим разделитель на допустимый
                  if Pos(DecimalSeparator,Edit1.Text) <> 0
                  then Key := Chr(0); // запрет ввода второго разделителя
                end;
           '-':    // минус можно ввести только первым символом,
                // т.е. когда ячейка пустая
                if Length(Edit1.Text) <> 0
                      then Key := Chr(0);
 
        else   // остальные символы запрещены
               key := Chr(0);
    end;
 
end;
 
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
If Key<> #8 then Key:=#0;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
begin
With form1 do
begin
Caption:='Temperature converter';
Width:=500;
Height:=150;
 
for i := 1 to Componentcount-1 do
if Components[i] is TCombobox then
begin
CB := Form1.Components[i] as TComboBox;
Cb.text:='';
With CB.items do
begin
 Add('DegC');
 Add('DegK');
 Add('DegF');
 Add('DegRa');
end;
end;
end;
Edit1.Text:='0';
Edit2.text:='';
Edit1.left:=32;
Edit1.width:=81;
Combobox1.left:=112;
Combobox1.width:=81;
Combobox1.ItemIndex:=0;
Edit2.left:=256;
Edit2.width:=81;
Combobox2.left:=336;
Combobox2.width:=81 ;
Combobox2.ItemIndex:=0;
 end;
 
end.