delphi 获取毫秒级时间戳

delphi 获取毫秒级时间戳

str:= DateTimeToTimeStamp(now).Date .ToString+DateTimeToTimeStamp(now).time .ToString;