Проблема с case и exit в Delphi

[nadyaH]

а почему если я пишу
edit2.text:=floattostr(m);
то за ошибку выдёт.

[Vanta11a]

Может потому что у переменной m не объявлен тип?

[nadyaH]

а за какой тип обозначить ?
если m от 1 до 12.
я просто с длефи 7 не работала.

[Vanta11a]

Вот Ваш кусок кода, смотрите, что изменилось:

VAR
D:EXTENDED;
M:integer;
begin
D:=STRTOFLOAT(EDIT1.Text);
D:=D-1;
M := 12;
IF D=0 THEN
 BEGIN
  M:=M-1;
  IF M=0 THEN M:=12;
  CASE M OF

[nadyaH]

почему в начеле присваеться М 12 , если месяц должен вводиться пользователем?!

[nadyaH]

VAR
D:EXTENDED;
M:integer;
begin
D:=STRTOFLOAT(EDIT1.Text);
m:=strtoint(edit2.Text);
D:=D-1;
IF D=0 THEN
BEGIN
M:=M-1;
IF M=0 THEN M:=12;
CASE M OF
1: begin D:=31;exit;end;
2: begin D:=28;exit;end;
3: begin D:=31;exit;end;
4: begin D:=30;exit;end;
5: begin D:=31;exit;end;
6: begin D:=30;exit;end;
7: begin D:=31;exit;end;
8: begin D:=31;exit;end;
9:begin D:=30;exit;end;
10:begin D:=31;exit;end;
11:begin D:=30;exit;end;
12:begin D:=31;exit;end;
END;
EDIT3.Text:=FLOATTOSTR(D);
EDIT4.Text:=FLOATTOSTR(M) ;
END;end;end.
ответ не выдаёт =(
что то не так пишу в программе.

[Serge_Bliznykov]

попробуйте так:

procedure TForm1.Button1Click(Sender: TObject);
var
  D: integer;
  M: 0..12;
begin
  D := STRTOINT(EDIT1.Text);
  M := STRTOINT(EDIT2.Text);
  D := D - 1;
  if D = 0 then
  begin
    M := M - 1;
    if M = 0 then M := 12;
    case M of
      1: begin D := 31 end;
      2: begin D := 28 end;
      3: begin D := 31 end;
      4: begin D := 30 end;
      5: begin D := 31 end;
      6: begin D := 30 end;
      7: begin D := 31 end;
      8: begin D := 31 end;
      9: begin D := 30 end;
      10: begin D := 31 end;
      11: begin D := 30 end;
      12: begin D := 31 end;
    end;
  end;

  EDIT3.Text := IntToStr(D);
  EDIT4.Text := IntToStr(M);
end;

или так:

procedure TForm1.Button1Click(Sender: TObject);
var
  D: integer;
  M: 0..12;
begin
  D := STRTOINT(EDIT1.Text);
  M := STRTOINT(EDIT2.Text);
  D := D - 1;
  if D = 0 then
  begin
    M := M - 1;
    if M = 0 then M := 12;
    case M of
      1: D := 31 ;
      2: D := 28 ;
      3: D := 31 ;
      4: D := 30 ;
      5: D := 31 ;
      6: D := 30 ;
      7: D := 31 ;
      8: D := 31 ;
      9: D := 30 ;
      10: D := 31 ;
      11: D := 30 ;
      12: D := 31 ;
    end;
  end;
  EDIT3.Text := IntToStr(D);
  EDIT4.Text := IntToStr(M);
end;

или так:

procedure TForm1.Button1Click(Sender: TObject);
var
  D: integer;
  M: 0..12;
begin
  D := STRTOINT(EDIT1.Text);
  M := STRTOINT(EDIT2.Text);
  D := D - 1;
  if D = 0 then
  begin
    M := M - 1;
    if M = 0 then M := 12;
    case M of
      1,3,5,7,8,10,12: D := 31 ;
      2: D := 28 ;
      4,6,9,11: D := 30 ;
    end;
  end;
  EDIT3.Text := IntToStr(D);
  EDIT4.Text := IntToStr(M);
end;

или так:

procedure TForm1.Button1Click(Sender: TObject);
const
   DaysInMonth: array[1..12] of Byte =
       (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
var
  D: integer;
  M: 0..12;
begin
  D := STRTOINT(EDIT1.Text);
  M := STRTOINT(EDIT2.Text);
  D := D - 1;
  if D = 0 then
  begin
    M := M - 1;
    if M = 0 then M := 12;
    D := DaysInMonth[M];
  end;
  EDIT3.Text := IntToStr(D);
  EDIT4.Text := IntToStr(M);
end;

[nadyaH]

огромное спасибо ))) всё работает правильно =)