delphi array应用 DayOfWeek星期几判断
//array应用 DayOfWeek星期几判断procedure TForm1.Button1Click(Sender: TObject);vardays:array[1..7] of string;todayIs:string;begindays[1] := '日 ';days[2] := '一 ';days[3] := '二 ';days...