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

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

Cравнение Time() с переменной типа TTime [D6, Win2k]

aadamov ©   (2005-10-21 22:32:00) 

Как сравнить значение возвращаемоеTime()  со значением переменной типа TTime.

Делаю..

varTime: TTime;

if Time() > varTime them

работает неправильно, т.е. хотя текущее время больше чем значение varTime, условие не работает. Пожалуйста поиогите....

Благодарю

---

Sergey Masloff   (2005-10-22 09:36:00) [1]

Германн ©   (22.10.05 02:12) [2]
>А с каких это пор в Дельфи существует "значение возвращаемоеTime()"
Не поверишь - с самой первой Delphi

ShiFT   (22.10.05 08:31) [3]
По фиг, TTime это алиас для TDateTime

Резюме: ошибка в 17 строке а так все должно работать

---

ShiFT   (2005-10-22 08:31:00) [2]


 TDate = type TDateTime;
 TTime = type TDateTime;
 function Time : TDateTime;


---

Германн   (2005-10-22 02:12:00) [3]

Ну да. А с каких это пор в Дельфи существует "значение возвращаемоеTime()"
Имхо, тут либо С, либо Паскаль - выбери что-то одно.

---

irishka001   (2005-10-21 23:22:00) [4]

Попробуй так:

procedure TForm1.Button1Click(Sender: TObject);
var
 varTime: TTime;
begin
 vartime:=strtotime('12:00:00') ;
 if time > varTime then
 begin
   label1.caption:='OK'
 end;
end;

end.

---

Наверх