[Nastya777]

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

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

[Alegun]

Код:

...
if CheckBox1 {:=true} then 
 Edit1.Text:=LowerCase((Sender as TButton).Caption) 
else {:=false}
 Edit1.Text:=UpperCase((Sender as TButton).Caption);
...
  

З.Ы. Забыл объяснить что это код клика любой из семи кнопок, задаётся в обжект инспекторе всем остальным.

[dr. F.I.N.]

Все куда прозаичнее

Код:

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  if CheckBox1.Checked
  then Edit1.CharCase := ecUpperCase
  else Edit1.CharCase := ecLowerCase;
end;

[Nastya777]

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


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