Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> tdate and string problem 
:(
    Опции темы
muratboy31
Дата 26.1.2010, 12:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
how do i set date to MonthCalendar from ini file ???

Код

var
ini1 : TINIFile;
time, text, date:string;
begin
ini1 := TINIFile.Create( ExtractFilePath(Application.ExeName)+'Settings.INI ');
time:=ini1.ReadString('Remember','Time', '');
bsSkinTimeEdit1.Text:=time;
text:=ini1.ReadString('Remember','Text', '');
bsSkinEdit1.Text:=text;
date:=ini1.ReadString('Remember','Date', '');
bsSkinMonthCalendar1.Date:=date;
ini1.Free;




Это сообщение отредактировал(а) muratboy31 - 26.1.2010, 14:59
PM MAIL   Вверх
Данкинг
Дата 26.1.2010, 13:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Код

bsSkinMonthCalendar1.Date:=strtodate(date);



--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
muratboy31
Дата 26.1.2010, 14:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
Цитата(Данкинг @ 26.1.2010,  13:12)
Код

bsSkinMonthCalendar1.Date:=strtodate(date);

thanks alot  smile 
PM MAIL   Вверх
Данкинг
Дата 26.1.2010, 15:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
muratboy31, not at all. smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
muratboy31
Дата 26.1.2010, 15:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
is it possible to show a dialog message if user selects past date !!! like;  'You cant choose A Past Date !!!'

Код

var
date:tdate;
ini1 : TINIFile;
begin
date:= bsSkinMonthCalendar2.Date;
ini1 := TINIFile.Create( ExtractFilePath(Application.ExeName)+'Settings.INI ');
ini1.Writedate('Remember','Date', date);
ini1.WriteString('Remember','Time', bsSkinTimeEdit1.Time);
ini1.WriteString('Remember','Text', bsSkinEdit2.Text);
ini1.Free;
PM MAIL   Вверх
Данкинг
Дата 26.1.2010, 15:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Цитата(muratboy31 @  26.1.2010,  15:10 Найти цитируемый пост)
if user selects past date

Function that returns current date is DATE(). Thus, 
Код

if bsSkinMonthCalendar1.Date<date() then showmessage('You're a .....');




--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
muratboy31
Дата 26.1.2010, 15:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
thanks man  smile 
by the way would the same code work for time !!!
because i will check if it is past date and past time

Код

if bsSkinTimeEdit1.Time < Time () then
showmessage('You are an animal :D');


or is there any shorter way that i can check date and time at the same time !!!

Это сообщение отредактировал(а) muratboy31 - 26.1.2010, 15:29
PM MAIL   Вверх
Данкинг
Дата 26.1.2010, 15:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Цитата(muratboy31 @  26.1.2010,  15:28 Найти цитируемый пост)
by the way would the same code work for time !!!

I think it should. smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
muratboy31
Дата 26.1.2010, 15:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
solved  smile 

thanks

Это сообщение отредактировал(а) muratboy31 - 26.1.2010, 16:41
PM MAIL   Вверх
muratboy31
Дата 26.1.2010, 16:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
i want to check if date and time is for future but it didnt work !!!

Код

var
Date1: TDate;
Time1:string;
Time2:tdatetime;
begin
Date1:= bsSkinMonthCalendar2.Date;
Time1:=bsSkinTimeEdit1.Time;
Time2:=strtotime(Time1);
if bsSkinMonthCalendar2.Date > Date () then 
//do action
end
else if (bsSkinMonthCalendar2.Date = Date ()) and (Time2 > Time ()) then 
//do action
end
else if bsSkinMonthCalendar2.Date < Date () then 
showmessage('Past Date'); end
else if (bsSkinMonthCalendar2.Date = Date ()) and (Time2 < Time ()) then 
showmessage('Past Time'); end



Это сообщение отредактировал(а) muratboy31 - 26.1.2010, 17:28
PM MAIL   Вверх
amsoft
Дата 27.1.2010, 18:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 201
Регистрация: 17.10.2009
Где: KZ, Astana

Репутация: 1
Всего: 4
Код

if (StrToDate(Edit1.Text)+StrToTime(Edit2.Text)) > Now then
//do action

--------------------
"Кто бы ты ни был - не думай о себе слишком"Дельфин
PM   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0472 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.