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

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

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

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

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

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

Scorp123 (2005-06-08 20:39:00) [1]
Из всех предложенных вариантов решения проблемы, в данном случае меня выручил варианнт:
>Нужно нажать Control и мышью на Time и посмотреть куда ведут >следы.
И потом, действительно, изначально нужно было проверить есть ли у меня переменная Time. В проекте уже куча переменных, я нажал Control и щёлкнул мышью на Time, передомной нарисовалось обьявление переменной Time : integer;
Огромное всем спасибо за помощь.

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

REA (2005-06-08 15:25:00) [2]
Нужно нажать Control и мышью на Time и посмотреть куда ведут следы.

Плохиш (2005-06-08 15:08:00) [3]
> Не работает функция Time [D7, Win2k]

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

Amoeba (2005-06-08 14:58:00) [4]

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

Sleep()

Digitman (2005-06-08 14:15:00) [5]
не мучайся.

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

Scorp123 (2005-06-08 14:12:00) [6]
Переменной 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 есть что-то подобное, и здесь можно найти более оптимальное решение?

Юрий Зотов (2005-06-08 00:37:00) [7]
Похоже, есть переменная Time и она перекрывает имя функции.

Eraser (2005-06-08 00:06:00) [8]
Scorp123 © (08.06.05 00:01)

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

Наверх

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