procedure TForm1.Button1Click(Sender: TObject);
var
days: array[1..7] of string;
begin
days[1] := 'Sunday';
days[2] := 'Monday';
days[3] := 'Tuesday';
days[4] := 'Wednesday';
days[5] := 'Thursday';
days[6] := 'Friday';
days[7] := 'Saturday';
ShowMessage('Today:' + days[DayOfWeek(Date)]);
end;
试试看吧
不是我的我不会去争，如果是我的一定要给我！！！！！！！！！！1
