在delphi下讀取與設定系統時鐘
很多朋友都想在自己的程式中顯示系統時間
這在delphi中十分容易
利用datetostr(date)及timetostr(time)函式即可實現。
二者的函式原型如下:
function datetostr(date:tdatetime):string;
function timetostr(time:tdatetime):string;
其返回值均為string型。
在程式中我們可以這樣使用:
label1.caption:=datetostr(date);
lable2.caption:=timetostr(time);
二者分別呼叫了delphi函式date和time讀取系統日期和時間來實現的
但只能讀系統時鐘
而不能設定系統時鐘。那麼如何處理這一問題呢？這正是本文所要討論的問題。
既然delphi沒有提供如此功能
但delphi提供了呼叫windowsapi的介面。所以我們可以呼叫windowsapi函式來實現這一功能。具體方法如下:
procedure tform1.button1click(sender:tobject);
begin
edit1.text:='97/10/30 10:09:59'; ／／注意:控制面板內時間格式要為yy／mm／dd
end;
procedure tform1.button2click(sender:tobject);
var systemtime:tsystemtime;
datetime:tdatetime;
begin
datetime:=strtodatetime(edit1.text); //獲得時間（tdatetime格式）
datetimetosystemtime(datetime
systemtime); //把delphi的tdatetime格式轉化為api的tsystemtime格式
setlocaltime(systemtime); //設定系統時間
getlocaltime(systemtime); //讀取系統時間
datetime:=systemtimetodatetime(systemtime); //把api的tsystemtime格式 轉化為 delphi的tdatetime格式
edit2.text:=datetimetostr(datetime); //顯示當前系統的時間
end;
另外還有好多其它的delphi函式和api函式供我們使用
如: strtodate、strtotime、datetimetostr、strtodatetime、datetimetosystemtime、systemtimetodatetime、datetimetotimestamp、timestamptodatetimecomparefiletime、dosdatetimetofiletime、filetimetodosdatetime、filetimetolocalfiletime、filetimetosystemtime、getfiletime、setfiletime、getsystemtime(格林威治時間)、setsystemtime.getsystemtimeadjustment
setsystemtimdadjustment。
//tsystemtime的格式
psystemtime = ^tsystemtime;
tsystemtime = record
wyear: word;
wmonth: word;
wdayofweek: word; //當前的系統時間是星期幾
wday: word;
whour: word;
wminute: word;
wsecond: word;
wmilliseconds: word;
end;
//tdatetime的格式
tdatetime = type double
Pandas讀取csv時設定列名
import pandas as pd df example pd.read csv pandas example read.csv 等同於 df example pd.read csv pandas example read.csv header 0 2.1和2.2效果都是一樣的，讀取檔案，並且改...
Pandas讀取csv時如何設定列名
1.csv檔案自帶列標題 import pandas as pd df example pd.read csv pandas example read.csv 等同於 df example pd.read csv pandas example read.csv header 0 2.csv檔案有列標...
讀取 設定系統時間日期
有多種方法可以讀取設定系統時間日期，現介紹兩種簡單的方法，第一種方法只能讀取不能設定。一 通過呼叫system.datetime.now來得到系統當前時間日期 messagebox.show system.datetime.now.year.tostring system.datetime.now....