Системное время

← →
DSP (2004-10-12 22:13) [0]

Подскажите пожалуйста как считать системное время (дд.мм.гггг) в Delphi.
Заранее благодарен

← →
begin...end © (2004-10-12 22:16) [1]

Now

← →
Kolan © (2004-10-12 23:41) [2]

var CurDate:string; CurTime:string; t, t1:TDateTime; begin t:=Date; t1:=Time; CurDate:=Datetimetostr(t); CurTime:=Timetostr(t1); end;В строках будет 12.10.2004 а в t и t1 числа с ними удобно работать. Посмотри Datetime routines Help

← →
DVM © (2004-10-12 23:44) [3]

Или на API:

function GetTime: string;
var
st: TSystemTime;
Time, FormatString: PChar;
TimeSize, FormatStringSize: integer;
begin
Result := "";
FormatStringSize := GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_STIMEFORMAT, nil, 0);
GetMem(FormatString, FormatStringSize * SizeOf(Char));
GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_STIMEFORMAT, FormatString, FormatStringSize);
GetLocalTime(st);
TimeSize := GetTimeFormat(LOCALE_USER_DEFAULT, 0, nil, FormatString, nil, 0);
GetMem(Time, TimeSize * SizeOf(Char));
GetTimeFormat(LOCALE_USER_DEFAULT, 0, @st, FormatString, Time, TimeSize * SizeOf(Char));
result := Time;
FreeMem(Time);
FreeMem(FormatString);
end;

GetLocalSystemTime - считать
SetLocalSystemTime - установить

var s: string; s:=FormatDateTime("dd.mm.yyyy", now);

Системное время Найти похожие ветки