Как получить в Edit-е день недели?

@Sp · Регистрация: 02.11.2009

Author24 — интернет-сервис помощи студентам

Здравствуйте!!!
подскажите как сделать что бы в поле edit появлялся день недель (понедельник, вторник и т.д.)???

@Antonio:))) · 23.05.2010, 10:34

Delphi

procedure TForm1.Button1Click(Sender: TObject);
 var day:integer;
     a:array[1..7] of string;
 begin
 a[1]:='Воскресенье';
 a[2]:='Понедельник';
 a[3]:='Вторник';
 a[4]:='Среда';
 a[5]:='Четверг';
 a[6]:='Пятница';
 a[7]:='Суббота';
 day:=DayOfWeek(Date);
 Edit1.Text:=a[day];
 end;
 
end.

@Sp · 23.05.2010, 12:34 **[ТС]**

спасибо то что нужно

@Sp 5 / 5 / 2 Регистрация: 02.11.2009 Сообщений: 236 Записей в блоге: 1
		1
	Как получить в Edit-е день недели? 23.05.2010, 08:23. Показов 1700. Ответов 2 Метки нет (Все метки) Здравствуйте!!! подскажите как сделать что бы в поле edit появлялся день недель (понедельник, вторник и т.д.)??? 0

@Sp 5 / 5 / 2 Регистрация: 02.11.2009 Сообщений: 236 Записей в блоге: 1
	23.05.2010, 12:34 [ТС]	3
	спасибо то что нужно 0

Как получить в Edit-е день недели?

Решение