Календарь. Delphl 2010

[Mel2118]

В приложении вывести число дней в месяце по введенным номеру месяца и году. Учесть, что для високосного года число дней в феврале равно 29.

[Katus]

program date1;
{$apptype console}
uses Sysutils;
var
  m,g: cardinal;
begin
writeln('mes god');
readln(m,g);
case m of
1,3,5,7,8,10,12: m:=31;
4,6,9,11: m:=30;
2: if ( g mod 4 = 0 ) and ( g mod 100 <> 0 ) or ( g mod 400 = 0 ) then m:=29 else m:=28;
else m:=0;
end;
writeln('V etom mesyace ', m, ' dney');
readln;
end.

[Mel2118]

unit UMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TTForm = class(TForm)
    EVvod1: TEdit;
    EVvod2: TEdit;
    BPoisc: TButton;
    procedure BPoiscClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  TForm: TTForm;

implementation

{$R *.dfm}

procedure TTForm.BPoiscClick(Sender: TObject);
begin
 Case
 StrToInt(EVvod1.text) of
1:EVvod2.text:='31';
2:EVvod2.text:='28';
3:EVvod2.text:='30';
4:EVvod2.text:='31';
5:EVvod2.text:='30';
6:EVvod2.text:='31';
7:EVvod2.text:='30';
8:EVvod2.text:='31';
9:EVvod2.text:='30';
10:EVvod2.text:='31';
11:EVvod2.text:='30';
12:EVvod2.text:='31';
end;
end;

end.

(как в этот код добавить высокосный код?)

[Mad_Cat]

var m:byte;
begin
m:=StrToInt(EVvod1.text);
case m of
1,3,5,7,8,10,12: m:=31;
4,6,9,11: m:=30;
2: if ( g mod 4 = 0 ) and ( g mod 100 <> 0 ) or ( g mod 400 = 0 ) then m:=29 else m:=28;
else m:=0;
end;
EVvod2.text:=IntToStr(m);
end;

[Mel2118]

6 ошибок,куда его вставить?

[Stilet]

В тело BPoiscClick видимо.
И замени EVvod2.text на (что там у тебя) Memo1.Lines.Text

[Mel2118]

Спасибо...

[phomm]

Может конечно я тут влезаю, и может уже не надо...
Но почему бы не использовать DaysInAMonth из модуля DateUtils

daysinmonth := daysinamonth(ayear, amonth);

она работает с учетом високосного года