Форум: "Основная";
Текущий архив: 2005.06.29;
Скачать: [xml.tar.bz2];
ВнизНе работает функция 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()
← →
Плохиш © (2005-06-08 15:08) [6]> Не работает функция Time [D7, Win2k]
Функция Time - работает. Просто некорые не умеют её готовить.
ИспользуйSysUtils.Time;
← →
REA (2005-06-08 15:25) [7]Нужно нажать Control и мышью на Time и посмотреть куда ведут следы.
← →
Scorp123 © (2005-06-08 20:39) [8]Из всех предложенных вариантов решения проблемы, в данном случае меня выручил варианнт:
>Нужно нажать Control и мышью на Time и посмотреть куда ведут >следы.
И потом, действительно, изначально нужно было проверить есть ли у меня переменная Time. В проекте уже куча переменных, я нажал Control и щёлкнул мышью на Time, передомной нарисовалось обьявление переменной Time : integer;
Огромное всем спасибо за помощь.
И ещё, функция Sleep(), при написаннии мной данного пректа будет просто не заменима.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.06.29;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.034 c