помогите решить прогу на делфи

[бедный_студент]

нужно по номеру дня определить будет ли он рабочим, субботой или воскресеньем, если 1 января - понедельник. предусмотреть проверку корректности вводимых данных (это вообще как ?)
сделать приложение вин32

в форму вводится любое число, в обычную edit форму (а как проверку водимых данных сделать ?)


когда нажимаешь на кнопку посчитать выполняется вот это:

var
a,b:integer
...
procedure TForm1.Button1Click(Sender: TObject);
begin
a:strtofloat(Edit1.text)
b:=(a mod 7);
case b of
0:label2.caption:=floattostr('воскресенье');
1..5:label2.caption:=floattostr('будни');
6:label2.caption:=floattostr('суббота');
end;
end;
end.

следующая сложность - как мне вывести выражение буквами в метку label2(день недели ) а то я использовал из другой задачи код а там числа выводились

[Лунатик222]

a:=strtoint(Edit1.text);
b:=(a mod 7);
case b of
0:label2.caption:='Воскресенье';
1..5:label2.caption:='будни';
6:label2.caption:='суббота';

проверка коректности это наверно то что поле Edit должны быть числа 0<x<8, наверно так да? или чтобы вводились только цифры в промежутке [1,31]? только не думаю что будет работать так как вы хотите... в каждом месяце числа с днями недели то не совпадают...

пока могу посоветовать только прописать для события Edit1PressKey

case Key of
        '0'..'9',#8: ;  // числа и клавиша "Backspace"


        else Key:= Char(0); // Запрещает другие символы

[бедный_студент]

нет, вводится любое число хоть 400
просто туда не должны вводится буквы
там же написано что 1 января - понедельник а там уже без разницы какой день вводится колво дней делится на неделю на 7 остаток - полученый день недели если 0 то это воскресенье.

[Лунатик222]

Сообщение от бедный_студент

нет, вводится любое число хоть 400
просто туда не должны вводится буквы
там же написано что 1 января - понедельник а там уже без разницы какой день вводится колво дней делится на неделю на 7 остаток - полученый день недели если 0 то это воскресенье.

ну тогда вроде все правильно добавьте событие Edit1PressKey

[бедный_студент]

мне бы код кто написал в делфи, пожалуйста, а то я не пойму что писать, вы мне код сам скиньте .pas
а то я не соображу никак с этими формами я только недавно начал под вин 32 писать (точнее нас заставили)

[Лунатик222]

Сообщение от бедный_студент

мне бы код кто написал в делфи, пожалуйста, а то я не пойму что писать, вы мне код сам скиньте .pas
а то я не соображу никак с этими формами я только недавно начал под вин 32 писать (точнее нас заставили)

подожди, а это тогда откуда?)

var
a,b:integer
...
procedure TForm1.Button1Click(Sender: TObject);
begin
a:strtofloat(Edit1.text)
b:=(a mod 7);
case b of
0:label2.caption:=floattostr('воскресенье');
1..5:label2.caption:=floattostr('будни');
6:label2.caption:=floattostr('суббота');
end;
end;
end.

создаешь форму кидаешь два label, edit и button в обработчике нажатия на button пишешь код

a:=strtoint(Edit1.text);
b:=(a mod 7);
case b of
0:label2.caption:='Воскресенье';
1..5:label2.caption:='будни';
6:label2.caption:='суббота';

имена компонентов отредактируй по своему усмотрению...
далее Object Inspector вкладка Events при выделенном компоненте Edit
ищем оброботчик EditKeyPress и пишем туда код

case Key of
        '0'..'9',#8: ;  // числа и клавиша "Backspace"


        else Key:= Char(0); // Запрещает другие символы

разве не интереснее самому попробовать сделать хотя бы это? или готовое интересней?

[бедный_студент]

это я процедуру для функции писал вроде так должно быть. я просто когда начинаю проект делать в делфи постоянно какая то лажа происходит то при компиляции от закрытого проекта код дебажит то окно пустое компилируется то не компилит...

[Freestyler]

Вот, раз уж так прямо готовое надо. Набросал за пару минут.