Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Тема: проблема с TDateTime [D6, WinXP]

Страницы: 1 2 3 >
msm © (2005-02-02 16:35:00)
Где ошибка, оно ни фига не бип?

var
Form1: TForm1;
Srabotka: TdateTime;
Ostatok: TdateTime;
Interval: TdateTime;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Interval:=DateTimePicker1.Time;
Srabotka:=Time + Interval;
Timer1.Enabled:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Ostatok:=Srabotka - Time;
Label1.Caption:=TimeToStr (Ostatok);
If Srabotka = Time then beep;
end;

end.

Antonn (2005-02-02 18:57:00) [1]
Antonn © (02.02.05 18:05) [40]
Ой, наговорил там.. :)) Перегрелся

Reindeer Moss Eater (2005-02-02 18:40:00) [2]
Попробуй If Ostatok = Time then beep;

Unit

System

Delphi syntax:

type TDateTime = type Double;

Пробовать можно до пенсии.

Antonn (2005-02-02 18:05:00) [3]
msm (02.02.05 17:42) [31]
Например, Interval=0:10:00
А дата? Ты прибавляешь время ко времени, а дата по умолчанию равна 1.1.1899(поправьте, если ошибаюсь). Как задается Ostatok?

If Srabotka = Time then beep; У тебя Srabotka=Time+***. Услови ни как не будет выполнятся. Попробуй If Ostatok = Time then beep;

Reindeer Moss Eater (2005-02-02 17:59:00) [4]
Лучше б ты думал, а не преклонялся.

msm (2005-02-02 17:57:00) [5]
>Reindeer Moss Eater © (02.02.05 17:52) [37]
Я преклоняюсь перед Вашим профессионализмом программиста и интеллигентностью Вашего общения.

Reindeer Moss Eater (2005-02-02 17:52:00) [6]
... И не парить здесь мозги окружающим

Reindeer Moss Eater (2005-02-02 17:51:00) [7]
ShowMessage(FormatDateTime('dd.mm.yyyy hh:nn:ss:zzz',Srabotka)+#13#10+
FormatDateTime('dd.mm.yyyy hh:nn:ss:zzz',Time));

А так же вспомнить, что TDateTime это Double и вспомнить про знак строгого равенства при операциях с Double.

msm (2005-02-02 17:48:00) [8]
>ALS © (02.02.05 17:37) [29]
Тогда получается 0:00:02 ... 0:00:01 ... 0:00:00 ... 00:00:01

msm (2005-02-02 17:47:00) [9]
>DVM © (02.02.05 17:46) [33]
Похоже на то ...

DVM (2005-02-02 17:46:00) [10]

> msm (02.02.05 17:42) [31]

надо Interval=10:00:00
утро вечера мудренее :)

Reindeer Moss Eater (2005-02-02 17:44:00) [11]
Это надолго.

msm (2005-02-02 17:42:00) [12]
Например, Interval=0:10:00

Antonn (2005-02-02 17:38:00) [13]
msm (02.02.05 16:35)
Interval:=DateTimePicker1.Time;
Srabotka:=Time + Interval;
Timer1.Enabled:=True;
Reindeer Moss Eater © (02.02.05 17:33) [28]
У тебя же переменные TDateTime
Что ты уперся в один элемент времени?
Чему равен Interval?

ALS (2005-02-02 17:37:00) [14]
Interval:= Frac(DateTimePicker1.Time);

Reindeer Moss Eater (2005-02-02 17:33:00) [15]
В данной ситуации 0:00:02 ... 0:00:01 ... 0:00:00 ... 23:59:59

У тебя же переменные T DateTime
Что ты уперся в один элемент времени?

Reindeer Moss Eater (2005-02-02 17:32:00) [16]
И этот вариант тоже ни фига не бип.
Это судьба.

msm (2005-02-02 17:32:00) [17]
Кстати, остаток <= 0 не получается.
В данной ситуации 0:00:02 ... 0:00:01 ... 0:00:00 ... 23:59:59

Jay1982 (2005-02-02 17:26:00) [18]
См. [21]
Трассировщик это круто :)

Jay1982 (2005-02-02 17:26:00) [19]
См. [20]
Трассировщик это круто :)

msm (2005-02-02 17:22:00) [20]
>ALS © (02.02.05 17:15) [20]
И этот вариант тоже ни фига не бип.

Страницы: 1 2 3 >

Наверх

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