Delphi Определение високосного и не вискосного года

[prog1995]

что не так в коде?
ошибки прилагаются

procedure TForm1.Button1Click(Sender: TObject);
var
c,m,g,l:integer;
begin
c:=StrToInt(Data.text);
m:=StrToInt(mes.text);
g:=StrToInt(god.text);
f:=g mod 4;
if f=0 then
begin
edit4.Text:=god.Text+' год високосный,';
1:=1;
end
else
begin
edit1.Text:=god.Text+' год невисокосный,';
1:=o;
end:
if m>12 then MessageDlg(' В году 12 месяцев', mterror,[mbook],0);
case m of 1,3,5,7,8,10,12:
if m>31 then MessageDlg(' В данном месяце 31 день', mterror,[mbook],0);
2:
case 1 of 1;
if m>29 then MessageDlg(' В данном месяце 29 дней', mterror,[mbook],0);
0:
if m>28 then MessageDlg(' В данном месяце 28 дней', mterror,[mbook],0);
end;
4,6,9,11:
if m>30 then MessageDlg(' В данном месяце 30 дней', mterror,[mbook],0);
end;
case m of 1,2,3: edit1.Text:=edit1.Text+' 1 квартал,';
4,5,6:edit1.Text:=edit1.Text+' 2 квартал,';
7,8,9:edit1.Text:=edit1.Text+' 3 квартал,';
10,11,12:edit1.Text:=edit1.Text+' 4 квартал,';
end;
case m of 12,1,2:edit1.Text:=edit1.Text+' зима';
3,4,5:edit1.Text:=edit1.Text+' весна';
6,7,8:edit1.Text:=edit1.Text+' лето';
9,10,11:edit1.Text:=edit1.Text+' осень';
end;
end;

end.

[tsar_]

что не так в коде?

Просто он к вашей программе не подходит. Совсем.

[type_Oleg]

Ну, кроме чисто программных ошибок, вы определитесь, какого календаря вы придерживаться будете - григорианского ( новый стиль ), или юлианского ( старый стиль) .
Судя по этому:

f:=g mod 4;
if f=0 then

- у вас - старый стиль.
А по новому - делиться на 4 недостаточно.
Например, 1900-й год - по старому стилю был високосный, а по новому - нет.
По новому високосный - не каждый 4-й год, а 97 из 400.

[Serge_Bliznykov]

для диапазона лет от 1901 до 2099 для проверки високосности вполне достаточно использовать признак делимости на 4 (2000 год был високосный).
но, если нужно брать точную формулу, тогда я бы воспользовался такой:

{*                    OPDATE.PAS 1.21                    *}
{*     Copyright (c) TurboPower Software 1988, 1992.     *}

  function IsLeapYear(Year : Integer) : Boolean;
    {-Return True if Year is a leap year}
  begin
    IsLeapYear := (Year mod 4 = 0) 
          and (Year mod 4000 <> 0) and
            ((Year mod 100 <> 0) or (Year mod 400 = 0));
  end;

[prog1995]

Как всё вывести в edit4: к примеру при вводе (число,месяц,год) - 6,6,2016 ; Выводилось 2016 год,високосный,2 квартал , лето

[TaLadno]

http://www.delphibasics.ru/DecodeDateTime.php + код от Serge_Bliznykov + немного серого вещества для определения квартала и весна/лето/осень/зима

[Serge_Bliznykov]

квартал определять но номеру месяца

((mes-1) div 3)+1

весна/лето/осень/зима
проще всего через функцию либо с массивами
либо через банальный case Mesac of

result:='undefined';
case Mesac of
  12,1,2 : result := 'Зима';
  3..5 : result := 'Весна';
  6..8 : result := 'Лето';
  9..11 : result := 'Осень';
end;