根据日期取星期 delphi7

要根据日期取星期，我们可以使用Delphi7中的TDateTimePicker组件和DateUtils单元来实现。

首先，在Delphi7窗体上放置一个TDateTimePicker组件，并设置其日期格式为短日期格式。然后在代码中引入DateUtils单元。

接下来，我们可以在某个按钮的点击事件中编写代码来实现。

我们首先将TDateTimePicker组件的日期值转换为TDate类型的变量。然后通过使用DayOfWeek函数来获取该日期对应的星期几的整数值，整数值从1（周日）到7（周六）。

最后，我们可以使用DateToStr函数将整数值转换为星期几的字符串进行显示。

下面是代码示例：

procedure TForm1.Button1Click(Sender: TObject);
var
selectedDate: TDate;
weekDay: Integer;
weekDayStr: string;
begin
selectedDate := DateTimePicker1.Date;
weekDay := DayOfWeek(selectedDate);

case weekDay of
1: weekDayStr := '星期日';
2: weekDayStr := '星期一';
3: weekDayStr := '星期二';
4: weekDayStr := '星期三';
5: weekDayStr := '星期四';
6: weekDayStr := '星期五';
7: weekDayStr := '星期六';
end;

ShowMessage('选择的日期是：' + DateToStr(selectedDate) + '，对应的星期是：' + weekDayStr);
end;

通过上述代码，我们就可以根据日期取出相应的星期。当点击按钮时，会弹出一个消息框，显示选择的日期和对应的星期。