delphi - stringgrid 列名插入日期和日期信息

Question

我正在这样做:

procedure TForm1.Button1Click(Sender: TObject);
var dtStart: TDateTime;
  I: Integer;
begin
  dtStart := DateTimePicker1.Date;
  for I := 0 to 6 do
    StringGrid1.Cells[I+1, 1] := FormatDateTime('dd/mm/yyyy', dtStart + I);
end;

任何将日期名称与日期一起添加的方法，例如周一·周二·周三等

Answer 1

只需更改您的 FormatDateTime 格式字符串:

StringGrid1.Cells[I+1, 1] := FormatDateTime('ddd dd/mm/yyyy', dtStart + I);