Delphi Edit里的时间字符串加1秒?
来源:百度知道 编辑:UC知道 时间:2024/06/30 04:29:48
如何让Edit里的日期时间字符串加1秒?
Edit.Text := '2008-06-18 02:12:23';
如何让上面的值加1秒啊
大虾帮忙啊?
我这个时间不是用now()得到的
是格林尼治的时间
我要进行标准时间与本机时间校对
我需要持续的加1秒
因为有时网速慢,只能第一次打开时读取格林尼治时间,所以我要读取后在本机上用定时器每秒加1秒
如何做?
Edit.Text := '2008-06-18 02:12:23';
如何让上面的值加1秒啊
大虾帮忙啊?
我这个时间不是用now()得到的
是格林尼治的时间
我要进行标准时间与本机时间校对
我需要持续的加1秒
因为有时网速慢,只能第一次打开时读取格林尼治时间,所以我要读取后在本机上用定时器每秒加1秒
如何做?
引用DateUtils
uses
DateUtils;
添加一个Timer控件并设置它的InterVal属性值为1000
然后设置它的OnTimer事件为如下形式:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Edit1.Text := FormatDateTime('yyyy-MM-dd hh:mm:ss', IncSecond(StrToDateTime(Edit1.Text)));
end;
即可以实现自动跳秒的形式了。
你可以取时间变量,格式化为字符串,然后填入edit1.
比如用定时器,每秒执行一次,在定时ontimer中写代码
edit1.text:=formatdatetime('yyyy-mm-dd hh-nn-ss',now);
//
用定时器
你这样做,取gmt时间后,把这个时间转换为秒,寸于一个全局变量中,然后用定时器每秒递增该变量并把秒树转换为日期变量显示在text中。
我这里有转换逻辑,qq:249497110
这个需要删除字符串指定位置字符函数
var
s:string;
i:integer;
begin
s:=edit1.text;
i:=length(s);
s:=delete(s,18,2);
s:=s+'24';
edit1.text:=s;
end;
拿个定时器,跳一次之后把它禁用。