Дни недели,отображение заглавными или прописными

[naty7773]

Помогите пожалуйста!!!Как отображать дни недели в редакторе Edit вроде немного поняла.А как сделать чтоб были заглавные и прописные буквы вобще нет(((
Вот задание

На форме располагаются: семь разных кнопок Button с названиями-днями недели, кнопка Close, флажок CheckBox и редактор Edit. Нажатие каждой кнопки приводит к отображению соответствующего дня недели в редакторе Edit, а флажок задает режим отображения: заглавными или прописными буквами. Кнопка Close заканчивает программу.

[Stilet]

s:='тяпниЦа';
Edit1.Text:=AnsiUpperCase(copy(s,1,1))+AnsiLowerCase(copy(s,2,Length(s)))

Однако не пойму что мешает описать названия в качестве констант так как нужно?

[Stilet]

s:='тяпниЦа';
Edit1.Text:=AnsiUpperCase(copy(s,1,1))+AnsiLowerCase(copy(s,2,Length(s)))

Однако не пойму что мешает описать названия в качестве констант так как нужно?

[naty7773]

Я сделала,но вот так....И каждый день недели так прописала.Все получилось и заработало.Сдала))))Спасибо вам за помощь тоже!!!))


procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:='Monday';
if CheckBox1.Checked=True then
Edit1.Text:=UpperCase(Edit1.Text);