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

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

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

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 31.05.2008, 09:36   #1
Михаил Юрьевич
Форумчанин
 
Аватар для Михаил Юрьевич
 
Регистрация: 25.12.2007
Сообщений: 655
По умолчанию Подскажите по Label

Подскажите вот такой вопрос:у меня на форме
три SpinEdit и Label,в Label отображается
число,месяц и год которое соответственно каждый день меняется
в формате- 31.05.2008,в SpinEdit1 я набираю число,
в SpinEdit2 я набирая месяц,а в SpinEdit3 я набираю год.
Подскажите как мне проверять набранное мной число
с числом в Label ,ведь в Label показывает 31.05.2008,а
в трех SpinEdit: SpinEdit1.Vaue:=31; SpinEdit2.Vaue:=5;
SpinEdit3.Vaue:=2008;
Если можно напишите код
За частые поиски был забанен во всех известных
поисковых системах!
Михаил Юрьевич вне форума Ответить с цитированием
Старый 31.05.2008, 10:24   #2
Gorychev
Участник клуба
 
Аватар для Gorychev
 
Регистрация: 08.03.2008
Сообщений: 1,603
По умолчанию

Используй функцию Сopy
Код:
if copy(Label1.Caption, 1, 2) = Spinedit1.text then......
if copy(Label1.Caption, 4, 2) = Spinedit1.text then....
if copy(Label1.Caption, 7, 4) = Spinedit1.text then.....
Gorychev вне форума Ответить с цитированием
Старый 31.05.2008, 10:33   #3
D-mon
Форумчанин
 
Регистрация: 22.06.2007
Сообщений: 414
По умолчанию

procedure TForm2.Button1Click(Sender: TObject);
Var year, mounth, day:word;
begin
DecodeDate(StrToDate('12.12.2006'), year, mounth, day);
ShowMessage(IntToStr(day)+' '+IntToStr(mounth)+' '+IntToStr(year));
end;
Нет невыполнимых задач, всё дело времени...
D-mon вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Label artemavd Общие вопросы Delphi 2 11.07.2008 11:15
Label Kocapb Общие вопросы C/C++ 2 17.01.2008 01:50
label dmitrymoskva Общие вопросы Delphi 7 24.10.2007 18:54
Label Oksana Компоненты Delphi 2 22.04.2007 20:54
Вопрос по label. Как сделать так чтобы label была прозрачной. Lonix Компоненты Delphi 2 01.04.2007 06:23