Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.10.02;
Скачать: [xml.tar.bz2];

Вниз

Вычитание времени из времени   Найти похожие ветки 

 
Romka   (2003-09-17 17:13) [0]

У меня 3 компонента:Label, Edit, StatusBar. В Label"е и Edit"е показывается время, естественно в строковом типе. Как мне вычесть время из Edit-Label и показать ответ в StatusBar"е,т.е. сколько времени осталось.


 
Jeer   (2003-09-17 17:17) [1]

F1 TDateTime


 
BillyJeans   (2003-09-17 17:18) [2]

StatusBar.Panels[0].Text := TimeToStr(StrToTime(Edit1.Text)-StrToTime(Label.Caption));


 
Jeer   (2003-09-17 17:19) [3]

BillyJeans © (17.09.03 17:18) [2]

Ходячий F1


 
BillyJeans   (2003-09-17 17:47) [4]

Jeer © (17.09.03 17:19) [3]

:о)


 
Romka   (2003-09-17 17:51) [5]

Не работает При выполнении Выдается ошибка в новом окне


 
Anatoly Podgoretsky   (2003-09-17 17:54) [6]

Может у тебя StatusBar.Panels[0].Text нет или ты не так скопировал. А насчет ошибки ты не ошибаешься, может тебе разницу показывает?


 
ZEE   (2003-09-17 17:55) [7]

значит в StrToTime подсовываешь не время
разделитель проверь...


 
Verg   (2003-09-17 18:06) [8]


> Может у тебя StatusBar.Panels[0].Text нет


Скорее всего нет самой Panels[0] в StatusBar-е

Т.е. дважды кликни на компоненте StatusBar, появится конструктор панелей. Там добавь хоть одну (панель) - она и будет под индексом 0.


 
Romka   (2003-09-18 12:36) [9]

Verg Спасибо, помог!! А ты не мог бы объяснить мне это.
StatusBar.Panels[0].Text := TimeToStr(StrToTime(Edit1.Text)-StrToTime(Label.Caption));
Почему если я пишу
StatusBar.Text := TimeToStr(StrToTime(Edit1.Text)-StrToTime(Label.Caption));
то он выдает ошибку, а если с Panels[0] тогда все нормально.


 
Verg   (2003-09-18 13:48) [10]

Как почему?

А разве у TStatusBar есть Text?

Ты бы хоть в Help заглядывал что ли.



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.10.02;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.009 c
3-3744
rh
2003-09-12 12:46
2003.10.02
Какой пользователь в MS SQL?


14-4046
Sergo
2003-09-15 10:28
2003.10.02
OnLine игровой сервер


3-3769
Леонид
2003-09-11 17:57
2003.10.02
Как написать, чтоб открывалась запарол. таблица без запроса


1-3912
Russko
2003-09-22 09:28
2003.10.02
TQuickRep


6-4007
lord
2003-08-01 18:49
2003.10.02
myclient : array [1 .. 65535] of TclientSocket;





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