Модераторы: Poseidon, Snowy, bems, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Системное время 
:(
    Опции темы
Vladimir13
Дата 8.12.2004, 16:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 208
Регистрация: 8.12.2004
Где: Волгоград, Россия

Репутация: 1
Всего: 1
где взять системное время? или как его сгенерировать.
--------------------
Лучший метод - метод тыкаобращаться по адресу: mvdr
PM MAIL ICQ   Вверх
Sergey89
Дата 8.12.2004, 16:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 122
Регистрация: 14.9.2004

Репутация: нет
Всего: нет
TimeToStr(Time);

Это сообщение отредактировал(а) Sergey89 - 8.12.2004, 16:12
--------------------
mlib.com.ru
PM MAIL   Вверх
~FoX~
Дата 8.12.2004, 16:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68
Тут все про даты и время.


--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
Satana
Дата 8.12.2004, 16:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 564
Регистрация: 15.9.2004
Где: Ставрополь, СЗ ра йон

Репутация: 1
Всего: 5
Код

function GetCurrentDateTime: TDateTime;

var
 SystemTime: TSystemTime;
begin

 GetLocalTime(SystemTime);
 Result := SystemTimeToDateTime(SystemTime);
end;


help, help и еще раз help товарищи smile


--------------------
 Работай на себя 
www.abalentsev.com - Сайт портфолио.
www.pokushau.ru - Рецепты со всего мира.
PM MAIL WWW ICQ   Вверх
Zero
Дата 8.12.2004, 18:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: 8
Всего: 24
Цитата(Sergey89 @ 8.12.2004, 16:12)
TimeToStr(Time);

Если Vladimir13 задал такой вопрос, то врядли он поймёт чё Sergey89, ты ему понаписал. Более корректная запись будет так:
Код

label1.Caption:=TimeToStr(Time);  //Так определить время
label2.Caption:=DateToStr(Time);  //Так определить дату

Если загониш всё в таймер (с интервалом 1000), то время и дата будет отображаться в каждый момент текущая.
PM MAIL ICQ   Вверх
NiJazz
Дата 8.12.2004, 18:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Jazz coder
****


Профиль
Группа: Экс. модератор
Сообщений: 2286
Регистрация: 10.8.2003
Где: Москва

Репутация: 6
Всего: 23
Код

uses Windows;

{Тут что-то ещё...}

procedure TForm1.Button1Click(Sender: TObject);
var syst: SystemTime;
   stime: string;
   h, m, s: integer;
begin
 GetSystemTime(addr(syst)); // вот тут выдает какую-то ошибку в духе паскаля. Как там передать указатель, помогут Гуру паскаля. :-)
 h := syst.wHour;
 m := syst.wMinute;
 s := syst.wSecond;
 stime := 'Hour: ' + IntToStr(h) +
          ' Minute: ' + IntToStr(m) +
          ' Second: ' + IntToStr(s);
 Edit1.Text := stime;
end;


Добавлено @ 18:55
Как нужно передать указатель на syst в функции GetSystemTime, чтобы ошибок не было?
PM MAIL   Вверх
Vladimir13
Дата 8.12.2004, 18:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 208
Регистрация: 8.12.2004
Где: Волгоград, Россия

Репутация: 1
Всего: 1
smile
Всем спасибо.
Специально для Zero: я в программировании уже 6 лет, начинал с Basic'а. А здесь - просто запарился - за 2 дня написал 10 программ ( 5 игрушек по физике, 3 для студентов, и 2 обучалки).
--------------------
Лучший метод - метод тыкаобращаться по адресу: mvdr
PM MAIL ICQ   Вверх
Zero
Дата 8.12.2004, 19:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: 8
Всего: 24
Это ты мен тут оффтопик показываешь??? smile
Я тут тебе разяснил как что делать более подробно, а тебе ещё чё-то не нравится, с этого момента, буду отвечать и помогать всем кроме, тебя... smile
PM MAIL ICQ   Вверх
Vladimir13
Дата 8.12.2004, 19:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 208
Регистрация: 8.12.2004
Где: Волгоград, Россия

Репутация: 1
Всего: 1
я прекрасно понял Sergey89, спасибо, обойдусь без тебя.

Спасибо и тебе, за твою заботу и бдительность. smile smile smile javascript:add_smilie("smile=dance")
--------------------
Лучший метод - метод тыкаобращаться по адресу: mvdr
PM MAIL ICQ   Вверх
cardinal
Дата 8.12.2004, 19:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 2
Всего: 99
Zero, ну успокойся ты! Тебе человек спасибо говорит, а "спасибо" является offtopic'ом! Ну виноват он чтоли в том что смайлик с недовольной рожей?
Добавлено @ 19:10
Цитата(Vladimir13 @ 8.12.2004, 18:08)
я прекрасно понял Sergey89, спасибо, обойдусь без тебя.

Нет, я наверно что-то не понимаю. Вы специально конфликты создаете?


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
Vladimir13
Дата 8.12.2004, 19:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 208
Регистрация: 8.12.2004
Где: Волгоград, Россия

Репутация: 1
Всего: 1
нет, просто не люблю когда кто то думает, что он круче и умнее.
--------------------
Лучший метод - метод тыкаобращаться по адресу: mvdr
PM MAIL ICQ   Вверх
unreg
Дата 9.12.2004, 03:59 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Цитата(NiJazz @ 8.12.2004, 18:53)
Добавлено @ 18:55
Как нужно передать указатель на syst в функции GetSystemTime, чтобы ошибок не было?


А там не надо указатель. Там в описании функции стоит var. Т.е. просто

var s:TSystemTime;

GetSystemTime(s);
  Вверх
unreg
Дата 9.12.2004, 04:08 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
То же и с var s:SystemTime;
  Вверх
NiJazz
Дата 9.12.2004, 09:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Jazz coder
****


Профиль
Группа: Экс. модератор
Сообщений: 2286
Регистрация: 10.8.2003
Где: Москва

Репутация: 6
Всего: 23
Цитата
То же и с var s:SystemTime;

Кажется, я делал и так. Но была ошибка.
Добавлено @ 09:16
Код

const GMT = 3;

procedure TForm1.Button1Click(Sender: TObject);
var syst: TSystemTime;
  stime: string;
  h, m, s: integer;
begin
GetSystemTime(syst); // вот тут выдает какую-то ошибку в духе паскаля. Как там передать указатель, помогут Гуру паскаля. :-)
h := syst.wHour + GMT;
m := syst.wMinute;
s := syst.wSecond;
stime := 'Hour: ' + IntToStr(h) +
         '   Minute: ' + IntToStr(m) +
         '   Second: ' + IntToStr(s);
Edit1.Text := stime;
end;

Вот так работает.
Предыдущий ответ давал в спешке и не догадался заглянуть в Windows.pas smile
Добавлено @ 09:17
Извиняюсь, что забыл комментарии удалить.
PM MAIL   Вверх
Vladimir13
Дата 9.12.2004, 09:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 208
Регистрация: 8.12.2004
Где: Волгоград, Россия

Репутация: 1
Всего: 1
я же сказал ВСЕМ СПАСИБО, особенно Sergey89 и Zero smile . Все работает.
--------------------
Лучший метод - метод тыкаобращаться по адресу: mvdr
PM MAIL ICQ   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0574 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.