Реферат: Тригонометричні ефемериди планет Сонячної системи

ZD:=StrToInt(ComboBox1.Text);

ZD1:=StrToInt(ComboBox1.Text);

end;

end;

if ComboBox2.ItemIndex=0 then

begin

M0:=1;ZM:=1; ZM1:=1;

end;

-----------------------------------

if ComboBox2.ItemIndex=11 then

begin

M0:=12;ZM:=12; ZM1:=12;

end;

if M0=0 then // захист від помилки

begin

if MessageDlg(' Введення значення місяця цифрою недопустиме !',

mtError,[mbOK],0)=mrOK then

begin

ComboBox2.ItemIndex:=0;

M0:=1;

ZM:=1;

ZM1:=1;

end;

end;

R0:=StrToInt(ComboBox3.Text);

ZR:=StrToInt(ComboBox3.Text);

ZR1:=StrToInt(ComboBox3.Text);

if (R0<1990) or (R0>2100) then // захист від помилки