StringReplace('1999-2-3', '-', ' ', [rfReplaceAll]);
解决方案 »
- 新手提问,如何实现这个?
- 急!!!如何将表的某个列中所有值赋给数组
- TMainMenu问题,请大家帮忙
- 【搞过dbexpress+oracle存储过程+复杂报表 的进来加个好友,并送分】
- 如何对form1.canvas 上画的图像进行清空?
- 如何往一个已打开窗口的某个edit控件中传参数?是不是没有办法?
- 请教一个关于注册表的菜鸟问题!急等!
- tdatabase怎么使用?
- 如何增加可用分?
- 有文件a.mdb,b.mdb;现在想实现,删除a.mdb,将b.mdb拷贝成a.mdb
- 如何通过程序向打开的WORD中插入一个我需要的字符????
- 恳请帮助!急!如何将计算器的值替换到当前的dbgrid的某一列
Present: TDateTime;
Year, Month, Day, Hour, Min, Sec, MSec: Word;
begin
Present:= Now;
DecodeDate(Present, Year, Month, Day);
Label1.Caption := 'Today is Day ' + IntToStr(Day) + ' of Month '
+ IntToStr(Month) + ' of Year ' + IntToStr(Year);
DecodeTime(Present, Hour, Min, Sec, MSec);
Label2.Caption := 'The time is Minute ' + IntToStr(Min) + ' of Hour '
+ IntToStr(Hour);
end;
我把FormatDateTime('YYYY" "MM" "DD', Date); 加在报表中日期字段的onprint了。
为什么不行???
你怎么不安Delphi6呢????????????
我们写的是<<Delphi6函数大全>>!!!!!!!
我们写不是<<Delphi5函数大全>>!!!!!!!
begin
Value := StringReplace(Value, '-', ' ', [rfReplaceAll]);
end;