设置TDateTimeField.DisplayFormat属性

解决方案 »

  1.   

    DateTimeField.DisplayFormat := 'hh: nn: ss';
      

  2.   

    不是吧,还没搞定
    按我刚说的先建立一个新,字段fff
    然后 table1fff.AsString:=formatdatetime('hh:mm:ss',table1.FieldByname('yourtime').asdatetime);
      

  3.   

    不是吧,还没搞定
    按我刚说的先建立一个新,字段fff
    然后 table1fff.AsString:=formatdatetime('hh:mm:ss',table1.FieldByname('yourtime').asdatetime);
      

  4.   

    重新说一次了,如你用的是table(query也是一样)
    1、双击窗体中的Table1,先关闭table1,打开字段编辑器Fields Editor;
    2、在Fields Editor窗口中,单击鼠标右键,选择New Fields菜单项
    3、Delphi显示New Fields对话框。选择Field Type列表框中的Currency 项, 并在Field Name文体框中输入Fff , 这样我们自定义了一个 CurrencyField 类型的字段Fff。Delphi会自动地填入相应的字段对象名,其缺省值为Table1fff;
    4、单击Ok按钮,关闭New Field对话框。当Fields Editor 窗口重新出现时, 注意fff已经出现在Fields列表框中
    5、在table1的OnCalcFields事件中写一句
            table1fff.AsString:=formatdatetime('hh:mm:ss',table1.FieldByname('yourtimefield').asdatetime);
      

  5.   

    设置TDateTimeField.DisplayFormat为'hh: nn: ss';
      

  6.   

    to polarsun:如果没有余留问题我将强制给分
      

  7.   

    回复人: zswang(伴水) (  ) 信誉:107  2002-06-17 08:42:00  得分:0  
     
     
      to polarsun:如果没有余留问题我将强制给分
     
     
    还能强制给分啊?有很多人都欠我的,你就给我一点吧!
      

  8.   

    zswang(伴水) 
    什么叫做强制给分啊?
      

  9.   

    procedure TForm1.Table1AfterOpen(DataSet: TDataSet);
    begin //动态方法
      TDateTimeField(DataSet.FieldByName('<日期字段名>')).DisplayFormat :=
        'hh"时"nn"分"ss"秒"';
    end;
      

  10.   

    to zhrubin:
    如果问题已经解决
    而发贴的人不结贴又不提出后续问题
    斑竹可以强制给分结贴
      

  11.   

    to zswang
    那斑竹起不是每篇文章都要看?
    辛苦了,斑竹...hoho