Cравнение Time() с переменной типа TTime

← →
aadamov (2005-10-21 22:32) [0]

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

Делаю..

varTime: TTime;

if Time() > varTime them

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

Благодарю

← →
irishka001 © (2005-10-21 23:22) [1]

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

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.

← →
Германн © (2005-10-22 02:12) [2]

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

← →
ShiFT (2005-10-22 08:31) [3]

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

← →
Sergey Masloff (2005-10-22 09:36) [4]

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

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

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

Cравнение Time() с переменной типа TTime Найти похожие ветки