Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.041 c
14-1117563162
гогениус
2005-05-31 22:12
2005.06.29
ищу работу. с обучением. за копейки. Питер


8-1109817542
dr_sollo
2005-03-03 05:39
2005.06.29
Как изменить размер картинки в DSPack


11-1101734167
Anton_R
2004-11-29 16:16
2005.06.29
Большой размер до Minimize


1-1118254543
нехочу называться
2005-06-08 22:15
2005.06.29
Упростить конструкцию


1-1118040713
Кирилл
2005-06-06 10:51
2005.06.29
Процедура





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский