|
Вопрос # 5 610/ вопрос открыт / |
|
Здравствуйте, уважаемые эксперты!
Возможно ли в Delphi описать следующее:
if сегодня вторник then label1.caption:='Сегодня вторник';
ну конечно после if должен быть код.
 |
Вопрос задал: Paroonalitik (статус: Посетитель)
Вопрос отправлен: 1 сентября 2011, 19:14
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: min@y™
Цитата (Paroonalitik):
Возможно ли в Delphi описать следующее: if сегодня вторник then label1.caption:='Сегодня вторник';
Запросто!
if DayOfWeek(Date()) = 3
then label1.caption:='Сегодня вторник';
З.Ы. Иногда возникает ощущение, что людям запрещают юзать хэлп.
 |
Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 1 сентября 2011, 19:28
|
Мини-форум вопроса
Всего сообщений: 6; последнее сообщение — 10 сентября 2011, 09:13; участников в обсуждении: 4.
|
|
min@y™ (статус: Доктор наук), 1 сентября 2011, 19:34 [#1]:
const
Days: array[1..7] of string = (
'воскресенье',
'понедельник',
'вторник',
'среда',
'четверг',
'пятница',
'суббота');
begin
Label100500.Caption:= 'Сегодня ' + Days[DayOfWeek(Date())];
end;
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Paroonalitik (статус: Посетитель), 1 сентября 2011, 19:45 [#2]:
честно говоря не понимаю. вот это:
if DayOfWeek(Date()) = 3
then label1.caption:='Сегодня вторник';
не работает.
а вот это:
const
Days: array[1..7] of string = (
'воскресенье',
'понедельник',
'вторник',
'среда',
'четверг',
'пятница',
'суббота');
begin
Label100500.Caption:= 'Сегодня ' + Days[DayOfWeek(Date())];
end;
без понятия куда и как
|
|
|
min@y™ (статус: Доктор наук), 1 сентября 2011, 19:49 [#3]:
Цитата (Paroonalitik):
не работает.
Что значит "не работает"? Надпись не появляется или что?
Цитата (Paroonalitik):
без понятия куда и как
А это тебе и не надо. Тебе ж только "вторник" нужен, так что этот кусок я написал только в качестве примера.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
ierihon1 (статус: 1-ый класс), 1 сентября 2011, 20:47 [#4]:
для того чтобы сравнивать дени узнай сначала какой СЕГОДНЯ ДЕНЬ.
|
|
|
min@y™ (статус: Доктор наук), 1 сентября 2011, 20:54 [#5]:
Цитата (ierihon1):
для того чтобы сравнивать дени узнай сначала какой СЕГОДНЯ ДЕНЬ.
Ну конечно! А функция Date() в моих примерах для красоты торчит.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
bugmenot (статус: 3-ий класс), 10 сентября 2011, 09:13 [#6]:
Цитата (min@y™):
З.Ы. Иногда возникает ощущение, что людям запрещают юзать хэлп.
Именно.
Цитата (min@y™):
const
Days: array[1..7] of string = (
Достаточно на секунду оторваться от изобретения велосипедов и притиснуть F1 как появится
var LongDayNames: array[1..7] of string;
из SysUtils
виконання програми розпочинається з того самого мiсця, де призупинилося.
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
