16,749
社区成员
发帖
与我相关
我的任务
分享
var
s: string;
iii: int64;
begin
s := FormatDateTime('yyyyMMddHHmmss', now);
edt1.Text:=s;
iii := StrToInt64(s); // 下断点看 iii 的值正确
ShowMessage(IntToStr(iii));
var
s: string;
i: int64;
begin
s := FormatDateTime('yyyyMMddHHmmss', now);
i := StrToInt64(s);
end;