Не работает функция Time

← →
Scorp123 © (2005-06-08 00:01) [0]

Создаю проек, размещаю на форме кропку Buton1 и Label1.
В теле события Button1.Click пишу прстейший код:
Label1.caption := TimeToStr(Time);
По идее в Label1 должно отображатся время, в данном случае так оно и есть. Если делаю тоже самое в проекте, который пишу, в Label1 отображается 12.00.00 причём какое бы время на данный момент не было. Не пойму в чём причина.

За ранее спасибо за ответ.
С уважением Владимир.

← →
Eraser © (2005-06-08 00:06) [1]

Scorp123 © (08.06.05 00:01)

Приведи участок кода, где это реализовано.

← →
Юрий Зотов © (2005-06-08 00:37) [2]

Похоже, есть переменная Time и она перекрывает имя функции.

← →
Scorp123 © (2005-06-08 14:12) [3]

Переменной Time, в том то и дело что нет, в крайнем случае в данном примере. В своём пректе я пытался воспользоватся показанием текущего времени и так и этак. Например размещал компонент Timer1:TTimer, и писал код:

Procedure TForm1.Timer1Timer(Sender: TObject);
Begin
Label1.caption := TimeToStr(Time);
end;

В данном примере в поле Label1, должен отображатся таймер.
У меня таймер отображается, вот только опять же 12.00.00
в незаваисимости от того какое время на данный момент.
Причём ни к Label1 ни к функции Time, ни каких обращений до этого момента нет.

Пробовал к стати и по другому:

Procedure TForm1.Timer1Timer(Sender: TObject);
var
DateTime : TDateTime;
Begin
DateTime := Time;
Label1.caption := TimeToStr(DateTime);
end;

Здесь тот же самый результат.

Вобще, мне необходимо в программе после проверки некоторой переменной прервать выполнение кода программы на некоторое время. Например если переменная R : Boolean будет равна True,
то программа приостанавливается на 30 секунд. По истечении 30 скунд, программа продолжает выполнятся.
Единственный выход в данном случае который я нашол, это использовать показания системного времени.
Я как-то давно пытался что-то писать на Basic, на сколько я помню там была функция Pause, у этой функции один параметр, количество секунд, которое программа ожидает и за тем продолжает выполнятся. Может и в Delphi есть что-то подобное, и здесь можно найти более оптимальное решение?

← →
Digitman © (2005-06-08 14:15) [4]

не мучайся.

вместо Time используй либо GetTime() либо Now()

← →
Amoeba © (2005-06-08 14:58) [5]

> там была функция Pause, у этой функции один параметр, количество
> секунд, которое программа ожидает и за тем продолжает выполнятся.
> Может и в Delphi есть что-то подобное, и здесь можно найти
> более оптимальное решение?

Sleep()

> Не работает функция Time [D7, Win2k]

Функция Time - работает. Просто некорые не умеют её готовить.
Используй SysUtils.Time;

← →
REA (2005-06-08 15:25) [7]

Нужно нажать Control и мышью на Time и посмотреть куда ведут следы.

Из всех предложенных вариантов решения проблемы, в данном случае меня выручил варианнт:
>Нужно нажать Control и мышью на Time и посмотреть куда ведут >следы.
И потом, действительно, изначально нужно было проверить есть ли у меня переменная Time. В проекте уже куча переменных, я нажал Control и щёлкнул мышью на Time, передомной нарисовалось обьявление переменной Time : integer;
Огромное всем спасибо за помощь.

И ещё, функция Sleep(), при написаннии мной данного пректа будет просто не заменима.

Не работает функция Time Найти похожие ветки