delphi 时间控件DatetTimePicker 读取数据库?

来源:百度知道 编辑:UC知道 时间:2024/06/24 08:23:41
如题,如何使用DatetTimePicker控件读取数据库里面的时间啊?急急急!!!小弟新手请哪位大虾给帮帮忙啊。

filectime(filename:string):tdatetime;
var
vSearchRec: TSearchRec;
LocalFileTime: TFileTime;
I: Integer;
begin
if FindFirst(filename, faAnyFile, vSearchRec) = 0 then

FileTimeToLocalFileTime(vSearchRec.FindData.ftLastWriteTime, LocalFileTime);
FileTimeToDosDateTime(LocalFileTime, LongRec(I).Hi, LongRec(I).Lo);
// Memo1.Lines.Values['修改时间'] := DateTimeToStr(FileDateToDateTime(I));
FindClose(vSearchRec);
result:=FileDateToDateTime(I);
end;