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

Sp

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

Sp

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

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