5,386
社区成员
发帖
与我相关
我的任务
分享DayOfWeek 函数调用问题！！！
// DayOfWeek.dpr
program DayOfWeek;
{$APPTYPE CONSOLE}
uses windows, SysUtils;
VAR
mydate : TDateTime;
DayNo : shortint;
BEGIN
mydate := Now;
DayNo := DayOfWeek(mydate);
writeln(mydate);
sleep(1000);
END.
编译错误:
[Error] DayOfWeek.dpr(12): '.' expected but '(' found
program DayOfWeek;
{$APPTYPE CONSOLE}
uses windows, SysUtils;
VAR
mydate : TDateTime;
DayNo : shortint;
BEGIN
mydate := Now;
DayNo := DayOfWeek(mydate);
writeln(mydate);
sleep(1000);
END.
编译错误:
[Error] DayOfWeek.dpr(12): '.' expected but '(' found
...全文
请发表友善的回复…
发表回复
