procedure TForm1.Button1Click(Sender: TObject);
var
MyTime: TDateTime;
begin
MyTime := EncodeTime(0, 45, 45, 7);
memo1.Lines.Add(TimeToStr(MyTime));
end;
end.
结果看到的是00:45:45 而没有7
就是这样的吗?还是我的用法错误,可以显示?
var
MyTime: TDateTime;
begin
MyTime := EncodeTime(0, 45, 45, 7);
memo1.Lines.Add(TimeToStr(MyTime));
end;
end.
结果看到的是00:45:45 而没有7
就是这样的吗?还是我的用法错误,可以显示?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货