御
御宇
Unregistered / Unconfirmed
GUEST, unregistred user!
代码:
不知道谁看过这篇文章没有，我根据他所讲得去做，但是得不到日期
在 這 個 程 式 中 ， 我 們 的 目 的 是 要 在 Script 中 使 用 這 個
AdapterField 來 取 得 當 天 的 日 期 。 因 此 我 們 要 為 這 個
AdapterField 撰 寫 取 得 日 期 的 事 件 ， 請 切 到 Events 頁 ，
撰 寫 OnGetValue 事 件 程 式
procedure THome.AdaptTodayGetValue(Sender: TObject;
var Value: Variant);
begin
Value:=DateToStr(Date);
end;
完 成 後 我 們 還 要 撰 寫 取 值 的 Script 程 式 ，
請 切 到 .html 頁 在 Application.Title 下 一 行 加
入 以 下 的 Script 程 式 :
<h1> 今 天 是 <%= Application.Today.Value %></h1>
但我不能得到当天的日期