Главная страница
    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.034 c
1-1118174495
Scorp123
2005-06-08 00:01
2005.06.29
Не работает функция Time


3-1116565491
Peter_cc
2005-05-20 09:04
2005.06.29
тип поля DATE


1-1117881436
Frozzen
2005-06-04 14:37
2005.06.29
Работа с диалогом ShowModal


14-1117127529
palva
2005-05-26 21:12
2005.06.29
Про гнилой строй


10-1093680682
Николай
2004-08-28 12:11
2005.06.29
Delphi + MSAccess





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский