VPF::Системное время - Форум программистов

Vladimir13

Дата 8.12.2004, 16:03 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

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

где взять системное время? или как его сгенерировать.

--------------------

Лучший метод - метод тыкаобращаться по адресу: mvdr

Sergey89

Дата 8.12.2004, 16:12 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

Репутация: нет
Всего: нет

TimeToStr(Time);

Это сообщение отредактировал(а) Sergey89 - 8.12.2004, 16:12

--------------------

mlib.com.ru

~FoX~

Дата 8.12.2004, 16:27 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

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

Репутация: 13
Всего: 68

Тут все про даты и время.

--------------------

…множественность никогда не следует полагать без необходимости…

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 - Рецепты со всего мира.

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), то время и дата будет отображаться в каждый момент текущая.

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, чтобы ошибок не было?

Vladimir13

Дата 8.12.2004, 18:55 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

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

Всем спасибо.
Специально для Zero: я в программировании уже 6 лет, начинал с Basic'а. А здесь - просто запарился - за 2 дня написал 10 программ ( 5 игрушек по физике, 3 для студентов, и 2 обучалки).

--------------------

Лучший метод - метод тыкаобращаться по адресу: mvdr

Zero

Дата 8.12.2004, 19:00 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

Репутация: 8
Всего: 24

Это ты мен тут оффтопик показываешь??? smile

Я тут тебе разяснил как что делать более подробно, а тебе ещё чё-то не нравится, с этого момента, буду отвечать и помогать всем кроме, тебя... smile

Vladimir13

Дата 8.12.2004, 19:08 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

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

я прекрасно понял Sergey89, спасибо, обойдусь без тебя.

Спасибо и тебе, за твою заботу и бдительность. smile

javascript:add_smilie("smile=dance")

--------------------

Лучший метод - метод тыкаобращаться по адресу: mvdr

cardinal

Дата 8.12.2004, 19:09 (ссылка)

(нет голосов)

Загрузка ...

Инженер

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

Репутация: 2
Всего: 99

Zero, ну успокойся ты! Тебе человек спасибо говорит, а "спасибо" является offtopic'ом! Ну виноват он чтоли в том что смайлик с недовольной рожей?
Добавлено @ 19:10

Цитата(Vladimir13 @ 8.12.2004, 18:08)

я прекрасно понял Sergey89, спасибо, обойдусь без тебя.

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

--------------------

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

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие

Vladimir13

Дата 8.12.2004, 19:23 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

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

нет, просто не люблю когда кто то думает, что он круче и умнее.

--------------------

Лучший метод - метод тыкаобращаться по адресу: mvdr

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
Извиняюсь, что забыл комментарии удалить.

Vladimir13

Дата 9.12.2004, 09:24 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

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

я же сказал ВСЕМ СПАСИБО, особенно Sergey89 и Zero smile

. Все работает.

--------------------

Лучший метод - метод тыкаобращаться по адресу: mvdr

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »