Оператор case

[Yermek]

Здраствуйте подскажите в чём ошибка?

procedure TForm1.Button1Click(Sender: TObject);
var
d,n:integer;
begin
n:=strtoint(edit1.Text);
case d of
1..5: n:='rabochie dni';
6,7: n:='vixodnie dni';
end;
label1.Caption:=inttostr(d);
end;

end.

[mihali4]

У вас d не задано. При инициализации процедуры оно всегда будет равно 0.
Переменная n объявлена как integer и вдруг вы ей пытаетесь присвоить строковое значение (n:='rabochie dni' n:='vixodnie dni')...
Подозреваю следующий вариант:

procedure TForm1.Button1Click(Sender: TObject);
var d: integer;
     n: string;
begin
d:=strtoint(edit1.Text);
case d of
1..5: n:='рабочие дни';
6,7: n:='выходные дни';
end;
label1.Caption:=n;
end;

[Somebody]

Сообщение от mihali4

У вас d не задано. При инициализации процедуры оно всегда будет равно 0.

Только не нулю, а тому мусору, который был в стеке

[mihali4]

Сообщение от Somebody

Только не нулю, а тому мусору, который был в стеке

Совершенно верно...
Приятно, когда на форуме присутствуют внимательные люди.