//array应用 DayOfWeek星期几判断
procedure TForm1.Button1Click(Sender: TObject);
var
days:array[1..7] of string;
todayIs:string;
begin
days[1] := '日 ';
days[2] := '一 ';
days[3] := '二 ';
days[4] := '三 ';
days[5] := '四 ';
days[6] := '五 ';
days[7] := '六 ';
todayIs := '星期 '+days[DayOfWeek(Now)];
showMessage(todayIs);
end;