如题 谢谢
解决方案 »
- 奇怪!为什么我的机器上运行Delphi2009,每天第一次启动都会死在logo画面那里?
- delphi调用c++的dll时传PAnsiChar的问题
- 我要写一个提醒功能的程序,大虾给点提示
- 呕心沥血完成物业管理软件,寻求各种形式的合作。
- 高分求助---如何用DELPHI编程实现:将所有文件夹下面的所有TXT文件中的内容读出来,并剔除相同汉字?
- MSComm+多线程,想实现用多线程监的串口有无收到数据,但cpu居然达到100%,请问是哪里有错?
- D5下OpenDialog的一个奇怪问题
- 用delphi生成html格式的邮件内容,其中包含图片,如何处理?
- 怎样判断ADO数据集还有未提交的数据????
- InstallShield的卸载快捷方式
- 给出一个日期,如何判断其为星期天和星期六.有类似的函数吗?急用!!!100分!!!
- 在delphi中能不能实现对界面的美化??比如实现象瑞星杀毒一样的界面!有控件吗?大侠帮忙
是dayofweek
或dayoftheweek
1=Sunday
..
..
7=saturday
DatePart(Weekday,getDate())返回当日星期,1为星期日,7为星期六
ADate: TDateTime;
days: array[1..7] of string;
begin
days[1] := 'Sunday';
days[2] := 'Monday';
days[3] := 'Tuesday';
days[4] := 'Wednesday';
days[5] := 'Thursday';
days[6] := 'Friday';
days[7] := 'Saturday';
ADate := StrToDate(Edit1.Text);
ShowMessage(Edit1.Text + ' is a ' + days[DayOfWeek(ADate)];
end;
另外注意Edit1.Text中的输入格式,比如2001-11-11是合法的