Question

Delphi Edit里的时间字符串加1秒?

如何让Edit里的日期时间字符串加1秒?
Edit.Text := '2008-06-18 02:12:23';
如何让上面的值加1秒啊
大虾帮忙啊?
我这个时间不是用now()得到的
是格林尼治的时间
我要进行标准时间与本机时间校对
我需要持续的加1秒
因为有时网速慢，只能第一次打开时读取格林尼治时间，所以我要读取后在本机上用定时器每秒加1秒
如何做？

Answer 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;

即可以实现自动跳秒的形式了。

Answer 2

你可以取时间变量,格式化为字符串,然后填入edit1.
比如用定时器,每秒执行一次,在定时ontimer中写代码

edit1.text:=formatdatetime('yyyy-mm-dd hh-nn-ss',now);
//

用定时器

你这样做，取gmt时间后，把这个时间转换为秒，寸于一个全局变量中，然后用定时器每秒递增该变量并把秒树转换为日期变量显示在text中。
我这里有转换逻辑，qq:249497110

Answer 3

这个需要删除字符串指定位置字符函数
var
s:string;
i:integer;
begin
s:=edit1.text;
i:=length(s);
s:=delete(s,18,2);
s:=s+'24';
edit1.text:=s;
end;

Answer 4

拿个定时器，跳一次之后把它禁用。