Как определить день недели?

procedure TForm1.Button1Click(Sender: TObject);
var
  d: TDateTime;
begin
  d := StrToDate(Edit1.Text);
  ShowMessage(FormatDateTime('dddd',d));
end;
 

https://delphiworld.narod.ru/

DelphiWorld 6.0

Функции DayOfTheWeek и DayOfWeek (см. справку по Дельфи)

Автор: Vit