Текущий архив: 2005.03.20;
Скачать: CL | DM;

Вниз

Чайниковский вопрос, хм, как получить системное время   Найти похожие ветки 

← →
Leeechhhh   (2005-03-05 19:19) [0]

Да, и вывести его на форму.
ЗЫ: тока не смейтесь, я только начал юзать делфи

---

← →
Knight ©   (2005-03-05 19:36) [1]

Label1.Caption:=TimeToStr(Now);

---

← →
Checist [root]   (2005-03-05 19:40) [2]

Или TimeToStr(Time). Кстати чем они отличаются?

---

← →
Knight ©   (2005-03-05 19:45) [3]

Сам сравни...

function Date: TDateTime;
var SystemTime: TSystemTime;
begin
 GetLocalTime(SystemTime);
 with SystemTime do Result := EncodeDate(wYear, wMonth, wDay);
end;

function Time: TDateTime;
var SystemTime: TSystemTime;
begin
 GetLocalTime(SystemTime);
 with SystemTime do
   Result := EncodeTime(wHour, wMinute, wSecond, wMilliSeconds);
end;

function Now: TDateTime;
var  SystemTime: TSystemTime;
begin
 GetLocalTime(SystemTime);
 with SystemTime do  
   Result := EncodeDate(wYear, wMonth, wDay) + EncodeTime(wHour, wMinute, wSecond, wMilliseconds);
end;

---

← →
Leeechhhh   (2005-03-05 19:49) [4]

Благодарности =))

---

← →
Anatoly Podgoretsky ©   (2005-03-05 19:54) [5]

Ответ не прозвучал, ну тогда переведу первое слово
Получить - get
системное -
время  -
Остальное настолько тривиально, что справишься без словаря.

---

← →
Knight ©   (2005-03-05 19:56) [6]

> [5] Anatoly Podgoretsky ©   (05.03.05 19:54)

Смотри [3] там и как получить и как энкодить... :)

С уважением...

---

← →
Anatoly Podgoretsky ©   (2005-03-05 20:01) [7]

Knight ©   (05.03.05 19:56) [6]
Смотрел, но вижу только локальное время, кстати тоже переводится без словаря :-)
Пойдет как пример для нужной функции, синтаксис одинаковый.

---

Страницы: 1 вся ветка

Текущий архив: 2005.03.20;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.031 c