Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Системное время

Автор: Vladimir13 8.12.2004, 16:03

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

Автор: Sergey89 8.12.2004, 16:12

TimeToStr(Time);

Автор: ~FoX~ 8.12.2004, 16:27

http://decoding.narod.ru/practic/datetime/datetime.html

Автор: Satana 8.12.2004, 16:34

Код


function GetCurrentDateTime: TDateTime;

var
  SystemTime: TSystemTime;
begin

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

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

Автор: Zero 8.12.2004, 18:46

Цитата(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

Код


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

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

Автор: Zero 8.12.2004, 19:00

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

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

Автор: Vladimir13 8.12.2004, 19:08

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

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

javascript:add_smilie("smile=dance")

Автор: cardinal 8.12.2004, 19:09

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

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

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

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

Автор: Vladimir13 8.12.2004, 19:23

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

Автор: unreg 9.12.2004, 03:59

Цитата(NiJazz @ 8.12.2004, 18:53)

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

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

var s:TSystemTime;

GetSystemTime(s);

Автор: unreg 9.12.2004, 04:08

То же и с var s:SystemTime;

Автор: NiJazz 9.12.2004, 09:13

Цитата

То же и с 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

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

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

Автор: NiJazz 9.12.2004, 09:32

Vladimir13
Это хорошо, что тебе смогли помочь. Но дело в том, что темя для всех и еще у кого-то могут быть вопросы или комментарии относительно сабжа. Прошу это учитывать.

Автор: Vladimir13 9.12.2004, 09:41

зачем заморочки, если тот код с лэйблами работает? Пусть кому надо его и используют