2012-05-09 35 views
1

我這樣做:stringgrid COLUMNNAME插入日期和信息

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; 

任何方式與IE一樣星期一星期二星期三等等日期加在一起的日子名

+0

你可以找到幾個日期格式的例子eg ['here'](http://www.delphibasics.co.uk/Article.asp?Name=Dates)。 – TLama

回答

4

只要改變你的FormatDateTime格式字符串:

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

如果您添加更多d,您將默認添加日期,並且不必擔心自己的日/月訂單。窗口的短日期格式需要5個小時串在一起,長日期需要6個。 –

+0

我知道。 :)雖然這不是問題的問題,它要求在日期前添加短日期名稱(例如,MON TUE WED),這正是我所回答的。 –

+0

我知道。 :)這就是爲什麼它是一個評論。只要人們有興趣,他們就知道這件事。 –