各位先進好:

我兩個問題,要請教各位高手幫忙

1. 我想作一個功能 用到 edit , button , MonthCalendar , memo 四個元件
然後寫一個筆記本 A

就是當我點選MonthCalendar元件上的日期,然後在edit 顯示星期幾
然後memo讀取筆記本,但是 MonthCalendar 有辦法顯示星期幾嗎??

[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.Text='星期幾' then // 這裡是我希望的功能,就是這邊顯示星期幾
memo1.Lines.LoadFromFile('a.txt');

end;
[/code]

2. 我爬過文章,有人提到 Use DateUtils
然後用DayOfTheWeek可以顯示
我的第一個問題能用這個方法嗎?
要怎麼用這個語法阿??
我試過直接點FORM1.然後拉到 Use那邊
直接寫一個DateUtils上去,沒啥反應(因為我不知道DateUtils是甚麼,該怎麼用??)

我問的問題可能笨了一點,但是如何顯示幾月幾號,還是日期相減我已經會了
但是唯獨讀出星期幾,弄不出來,卡這個功能影響我後續很多動作
拜託各位高手指點一下,感謝了....

編輯記錄

[code delphi]
if Edit1.Text:=IntToStr(DayOfTheWeek(MonthCalendar1.Date)) then
memo1.Lines.LoadFromFile('a.txt');
[/code]
即可

ps:DayOfTheWeek所帶出來的會是星期1~星期7
7=星期日

編輯記錄

老大仔大大你好:

感謝你的回文
可是我貼你的程式碼執行後跑出
[Error] Unit1.pas(38): Undeclared identifier: 'DayOfTheWeek'


if Edit1.Text:=IntToStr(DayOfTheWeek(MonthCalendar1.Date)) then
游標停在這裡

感覺已經接近完成我要的功能了,是不是我少打甚麼??




===================引 用 老大仔 文 章===================

[code delphi]
if Edit1.Text:=IntToStr(DayOfTheWeek(MonthCalendar1.Date)) then
memo1.Lines.LoadFromFile('a.txt');
[/code]
即可

ps:DayOfTheWeek所帶出來的會是星期1~星期7
7=星期日

應該是你忘了....Use DateUtils

and..你的兩個問題應該是同一個問題吧@@?
就是要問怎麼顯示星期幾而已不是嗎?

編輯記錄

我在use那邊添加DateUtils
後來就跑出錯誤
[Error] Unit1.pas(38): Type of expression must be BOOLEAN

if Edit1.Text:=IntToStr(DayOfTheWeek(MonthCalendar1.Date))then
這次卡在這邊
就是沒辦法讀取 memo

如果去掉讀取memo那一行
只打Edit1.Text:=IntToStr(DayOfTheWeek(MonthCalendar1.Date))
就真的可以在edit上面顯示星期幾

sorry 又跑出另外一個問題
不過能顯示出星期幾,已經很感謝你了
如果能解決讀取這個問題就更好了~~

ps.應該說我不懂,在use多打一個DateUtils , 這個動作是甚麼意思
所以問了兩個問題,主要是希望判定星期幾之後,再去讀取memo這個動作
未來就是設定,星期一到星期五 memo各讀取一個筆記本(ABCDE)內容
===================引 用 老大仔 文 章===================
應該是你忘了....Use DateUtils

and..你的兩個問題應該是同一個問題吧@@?
就是要問怎麼顯示星期幾而已不是嗎?

編輯記錄

一時沒察覺...
請改成以下即可



[code delphi]
Edit1.Text:=IntToStr(DayOfTheWeek(MonthCalendar1.Date));
[/code]

把if...then拿掉
當然~你的memo1載入檔案是不能省的

編輯記錄

可以跑了,感謝
另外有一個想法
如果我設了 A B C D E五個筆記本
有辦法 edit顯示 1 2 3 4 5的時候,各別讓memo1.讀取A B C DＥ 五個筆記本嗎
===================引 用 老大仔 文 章===================
一時沒察覺...
請改成以下即可



[code delphi]
Edit1.Text:=IntToStr(DayOfTheWeek(MonthCalendar1.Date));
[/code]

把if...then拿掉
當然~你的memo1載入檔案是不能省的

這些只需要用if then else 去判斷就行了
要不然請使用case的方法來判斷也行

這些判斷語法你應該可以自行處理的才是

嗯 了解
大大幫了我一個大忙
感謝感謝～～那結案了
===================引 用 老大仔 文 章===================
這些只需要用if then else 去判斷就行了
要不然請使用case的方法來判斷也行

這些判斷語法你應該可以自行處理的才是