Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.04.2010, 15:01   #1
skalt12
Пользователь
 
Регистрация: 05.07.2009
Сообщений: 87
По умолчанию IntToStr(WeeksBetween...) и TEdit

Доброго времени суток. Ситуация такая: есть
Код:
Label1.Caption := IntToStr(WeeksBetween(EncodeDate(2010,2,8),Date+7));
и в TEdit прописана какая-то дата, так вот, как заставить IntToStr подсчитывать дату начиная от введенной в TEdit?
заранее благодарен
skalt12 вне форума Ответить с цитированием
Старый 13.04.2010, 15:03   #2
pu4koff
Старожил
 
Аватар для pu4koff
 
Регистрация: 22.05.2007
Сообщений: 9,091
По умолчанию

Так?
Код:
Label1.Caption := IntToStr(WeeksBetween(StrToDate(Edit1.Text),Date+7));
pu4koff вне форума Ответить с цитированием
Старый 13.04.2010, 15:25   #3
skalt12
Пользователь
 
Регистрация: 05.07.2009
Сообщений: 87
По умолчанию

Цитата:
Сообщение от pu4koff Посмотреть сообщение
Так?
Код:
Label1.Caption := IntToStr(WeeksBetween(StrToDate(Edit1.Text),Date+7));
нет.. дельфя ругается
Цитата:
Error: Incompatible types Word and TCaption
skalt12 вне форума Ответить с цитированием
Старый 13.04.2010, 15:38   #4
evg_m
Старожил
 
Регистрация: 20.04.2008
Сообщений: 5,543
По умолчанию

Цитата:
нет.. дельфя ругается
если сложно понять что неверно то разбей проблемную строчку
Код:
Label1.Caption := IntToStr(WeeksBetween(StrToDate(Edit1.Text),Date+7));
на отдельные более простые и посмотри что получится
Код:
var
  d1,d2: TDate;
  k: integer;

d1:=StrToDate(Edit1.Text);
d2:=Date+7;
k:=WeeksBetween(d1,d2);
Label1.Caption := IntToStr(k);
программа — запись алгоритма на языке понятном транслятору
evg_m вне форума Ответить с цитированием
Старый 13.04.2010, 15:39   #5
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
дельфя ругается
Только что проверил на Делфи 6 - все правильно.
Какая у тебя версия?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 13.04.2010, 15:52   #6
raxp
Старожил
 
Регистрация: 29.09.2009
Сообщений: 9,713
По умолчанию

delphi6 & turbodelphi lite усе ок + тырк
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation
raxp вне форума Ответить с цитированием
Старый 13.04.2010, 16:14   #7
skalt12
Пользователь
 
Регистрация: 05.07.2009
Сообщений: 87
По умолчанию

у меня 7 =) и не катит)

Цитата:
Сообщение от evg_m Посмотреть сообщение
если сложно понять что неверно то разбей проблемную строчку
Код:
Label1.Caption := IntToStr(WeeksBetween(StrToDate(Edit1.Text),Date+7));
на отдельные более простые и посмотри что получится
Код:
var
  d1,d2: TDate;
  k: integer;

d1:=StrToDate(Edit1.Text);
d2:=Date+7;
k:=WeeksBetween(d1,d2);
Label1.Caption := IntToStr(k);
спасибо, так получилось)

Последний раз редактировалось Stilet; 13.04.2010 в 16:25.
skalt12 вне форума Ответить с цитированием
Старый 13.04.2010, 16:32   #8
skalt12
Пользователь
 
Регистрация: 05.07.2009
Сообщений: 87
По умолчанию

хотя, стоп... а если, скажем этот Edit1 находится на другой форме, то вываливается ошибка при запуске:
Цитата:
Project Project1.exe raised exception class EAccessViolation with message "Access Violation at address 00458B54 in module Project1.exe
skalt12 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
StrToInt и IntToStr AVer Общие вопросы Delphi 9 04.07.2010 13:57
IntToStr - IntToHex - ... Alex Cones Общие вопросы Delphi 8 28.07.2009 20:47
TEdit green Компоненты Delphi 17 16.03.2008 07:13
Как реализовать функцию IntToStr??? Morskoivolk Win Api 8 11.03.2007 16:23