我用edit.text:=timetostr(now);显示当前时间，可是我想显示到秒。怎样做。thanks

如题。谢谢

解决方案 »

  1.   

    Edit1.Text := FormatDateTime('yyyy-MM-dd hh:mm:ss',Now);
      

  2.   

    要用一个Timer控件
    在ONTIMER事件中
    Edit1.Text := FormatDateTime('yyyy-MM-dd hh:mm:ss',Now);
      

  3.   

    var
      dtParTime: TDateTime;
      wYear, wMonth, wDay, wHour, wMin, wSec, wMSec: word;
    begin
      dtParTime:= Now;
      DecodeDate(dtParTime, wYear, wMonth, wDay);
      DecodeTime(dtParTime, wHour, wMin, wSec, wMSec);
      

  4.   

    用DecodeTime分解，使用Timer不断将秒显示，具体函数看 xiaoxiao197821
      

  5.   

    procedure TForm1.Timer1Timer(Sender: TObject);
    begin
     edit1.Text:=datetimetostr(now());
    end;
    绝对可以！望给分
      

  6.   

    to ma007
    是要可以变化的，而不是固定的。
      

  7.   

    你自己看看吧，很早之前。，我做的一个闹钟就和各位人兄说的一样，使用TIMER，不过呢，间隔要设置好
      

  8.   

    edit1.text := DateTimeToStr(now);
      

  9.   

    增加一个TTimer控件，Inteval = 1000(自己定)
    enabled : True
    在OnTimer事件中写：   Edit1.text := DateTimeToStr( Date+ time );
    试一试吧
      

  10.   

    我用edit.text:=timetostr(now);显示当前时间，可是我想显示到秒。
    放一个定时器Timer，间隔为1秒，同时定义一个全局变量iSecond。
    iSecond := 0;OnTimer事件中写
    Inc(iSecond);
    Edit1.Text := IntToStr(iSecond);
    Edit1.Update;
      

  11.   

    同意 kaolaxiong(考拉熊) ...