| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Чайниковский вопрос, хм, как получить системное время [D7, WinXP]

Leeechhhh ©   (2005-03-05 19:19:00) 

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

---

Anatoly Podgoretsky   (2005-03-05 20:01:00) [1]

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

---

Knight   (2005-03-05 19:56:00) [2]

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

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

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

---

Anatoly Podgoretsky   (2005-03-05 19:54:00) [3]

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

---

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

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

---

Knight   (2005-03-05 19:45:00) [5]

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

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;

---

Checist [root]   (2005-03-05 19:40:00) [6]

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

---

Knight   (2005-03-05 19:36:00) [7]

Label1.Caption:=TimeToStr(Now);

---

Наверх