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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> дата 
:(
    Опции темы
Светлячок2009
Дата 13.7.2009, 16:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Привет всем! помогите пожалйста! нужно, чтобы в TDateTimePicker выводилась текущая дата, а не та, что стоит в свойстве Date.

Пыталась делать с помощью Now, выдает ошибку о несовпаденни типов Date и String

Это сообщение отредактировал(а) Светлячок2009 - 13.7.2009, 16:59
PM MAIL   Вверх
Данкинг
Дата 13.7.2009, 17:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


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

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

DateTimePicker1.Date=Date();

Ы? smile 


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


Новичок



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

Репутация: нет
Всего: нет
не, не работает.
то есть я ввожу переменную, записываю в нее текущую дату, далее компоненту DateTimePicker присваиваю эту переменную. Говорит, что не совпадение типов. Пытаюсь сделать с помощью DateTimeToStr - все равно говорит, что не совпадение типов. Я что-то не так делаю?
PM MAIL   Вверх
CodeMonkey
Дата 13.7.2009, 17:38 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 29
Всего: 89
Может код покажете? Гадать, что вы у себя написали, не представлятся возможным ввиду отсутствия миелофона.


--------------------
Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.
PM MAIL WWW ICQ Skype GTalk Jabber   Вверх
Светлячок2009
Дата 13.7.2009, 17:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
 smile спасибки,уже сделала
PM MAIL   Вверх
Светлячок2009
Дата 27.7.2009, 13:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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

procedure TForm5.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
const
clPaleGreen = TColor($CCFFCC);
clPaleRed = TColor($CCCCFF);
var dt:TDateTime;
begin
   dt:=now;
   if Column.Field.Dataset.FieldByName('Data').AsDateTime<dt then
     if (gdFocused in State) then
       DBGrid1.canvas.Brush.Color:=clPaleGreen
     else
       DBGrid1.canvas.Brush.Color:=clPaleRed;
 DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State)
end;


не работает. по замыслу вроде должна выделять красным те строки, в которых дата меньше сегодняшней (т.е. просрочен срок работы). Помогите плиз!!!!!!!!!!!!



M
THandle		Модератор: используйте подсветку кода!
PM MAIL   Вверх
Данкинг
Дата 28.7.2009, 23:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


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

Репутация: 11
Всего: 130
Цитата(Светлячок2009 @  27.7.2009,  14:14 Найти цитируемый пост)
 по замыслу вроде должна 

Что-то где-то такое мы уже разбирали. smile 
В условие (сравнение дат) программа заходит?


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


Шустрый
*


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

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

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if Column.Field.Dataset.FieldByName('Data').AsDateTime < dt then
  begin
  DBGrid1.Canvas.Brush.Color := clGreen;
  DBGrid1.Canvas.FillRect(Rect);
  DBGrid1.Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, Column.Field.Value );
  end;
end;


Это сообщение отредактировал(а) niteo - 29.7.2009, 08:15
--------------------
Мне чужого лишнего не нада.Ешь ананасы, рябчиков жуй,день твой последний приходит, буржуй...
PM MAIL   Вверх
Светлячок2009
Дата 2.8.2009, 14:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
niteo, не работает. мож я чего не так делаю?

Что-то где-то такое мы уже разбирали.  
В условие (сравнение дат) программа заходит? - не знаю, а как проверить?
PM MAIL   Вверх
Данкинг
Дата 2.8.2009, 16:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


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

Репутация: 11
Всего: 130
Цитата(Светлячок2009 @  2.8.2009,  15:37 Найти цитируемый пост)
не знаю, а как проверить? 

С помощью showmessage хотя бы.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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

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

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


 




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


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

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