Поздровлялка

← →
Ivolg © (2004-04-21 16:58) [0]

Здрасьте! есть вопросик! У меня есть в ListBox даты и мне нужно чтоб при включении проги, если сегодня такая дата которая есть в ListBox то выполнялась моя процедура! СПАСИБО БОЛЬШОЕ!

← →
[lamer]Barmaglot © (2004-04-21 17:09) [1]

If дата_в_листбоксе = date then моя_процедура

Или объясни что ты хочешь КОНКРЕТНО с приведение своего кода.

← →
Фикус © (2004-04-21 17:14) [2]

procedure TForm1.FormActivate(Sender: TObject); var i:integer; begin For i:=0 to ListBox1.Items.Count-1 do begin if ListBox1.Items[i]=DateToStr(Now) then begin ShowMessage("Сегодня:"+ListBox1.Items[i]);//здесь свою процедуру Break; end; end; end;

← →
Ivolg © (2004-04-21 18:01) [3]

Фикус

Чёто не работает!

← →
Фикус © (2004-04-21 18:23) [4]

Формат даты в системе? Год 2, 4 знака? А в ListBox"е?

← →
Ivolg © (2004-04-21 18:46) [5]

Фикус

А как сделать чтоб с такой даты читал! Пример: 20.04

← →
хамло ) (2004-04-21 18:48) [6]

свой формат даты знаешь? знаешь. текущую дату знаешь? знаешь. костер, бубен - и вперед

← →
Ivolg © (2004-04-21 19:11) [7]

Люди вы меня не так поняли!

Мне нужно чтобы вот так было: Если дата 31.12 то ShowMessage("С новым годом"); а если дата: 09.5 то howMessage("С днём победы");

← →
Алхимик © (2004-04-21 19:14) [8]

FormatDateTime + F1
FormatDateTime("dd.mm",Now) в частности

← →
Anatoly Podgoretsky © (2004-04-21 20:42) [9]

Мы тебя так поняли. А ты нас?

← →
Ivolg © (2004-04-23 17:54) [10]

ПЛИЗЗ ПОМОГИТЕ!

← →
WebErr © (2004-04-23 18:01) [11]

> Алхимик © (21.04.04 19:14) [8]

ИМХО the best

← →
Сергей Бушин (2004-04-23 18:04) [12]

Чего здесь ПОМОГИТЕ? Вроде все объяснили :(

Каким образом у тебя в Лист боксе содержаться даты? Пользователь их забивает или ты программно? Если пользователь, то анализируй их как уже было сказано. Если же ты программно, то вообще не понимаю в чем проблемма.

← →
Игорь Шевченко © (2004-04-23 18:34) [13]

По-моему, за два дня можно было и самому разобраться, не правда ли ?

← →
Ivolg © (2004-04-23 18:57) [14]

У меня такая проблема! Я делаю вот так: if calendar1.day=10 then
if calendar1.month=20 then
caption:="Привет!";
if calendar1.day=15 then
if calendar1.month=22 then
caption:="Пока";

почемуто код пешет даже когда нет вообще даты! И почемуто ког тогда исполняеься с низу вверх! Почему! Плиз обьясните!

← →
Андрей Сенченко © (2004-04-23 19:50) [15]

Ужас какой ...
Иван ! Вам уже по возрасту положено УМЕТЬ писать по-русски, а не ПРЕДСТАВЛЯТЬ как это делается. В институт скоро.

Приведите пожалуйста ОБЪЯВЛЕНИЕ Вашего calendar1. и его ЗАПОЛНЕНИЕ.

Каким образом ваш код пешет ( не могу перевести ) - что он при этом делает ?
С чего Вы взяли что даты нет ? Где ее нет ?
Каким образом Вы поняли, что код исполняется имеенно снизу вверх, а не например с фронта в тыл ?

← →
Игорь Шевченко © (2004-04-23 21:54) [16]

Ivolg © (23.04.04 18:57)

http://ln.com.ua/~openxs/articles/smart-questions-ru.html
Читать наизусть.
Сдавать экзамены по прочитанному.
После сдачи экзаменов читать книгу по Delphi.

← →
Anatoly Podgoretsky © (2004-04-23 22:18) [17]

Месяц 20 и 22 оригинально

if calendar1.month=20 then
caption:="Привет!";
if calendar1.day=15 then
if calendar1.month=22 then
caption:="Пока";
Андрей Сенченко

это значит что когда ни 20 ни 22 даты нету а стоит 21 например то код работает снизу верх! В заголовке ыормы пишет(а хотя не должно писать)"Пока"

Вообще-то код caption:="Пока"; должен выполняться в любом случае, не зависимо от условия, так как эта инструкция ни от чего не зависит! чтобы работало надо писать так:
if calendar1.month=20 then
caption:="Привет!";
if calendar1.day=15 then begin
if calendar1.month=22 then
caption:="Пока";
end;
А вообще Вы бред сумасшедшего какой-то пишете... Почитайте книги, это полезно. Или найдите подобный софт в интернете! Я не хочу губить молодой талант программиста и лишать человечество великого гения, но ИМХО может вам чем другим заняться?

> Вообще-то код caption:="Пока"; должен выполняться в любом
> случае, не зависимо от условия

и это тоже бред.

ладно, лоханулся, но код всё равно его условиям не удовлетворял!

Ну чё не кто незнае штоле

Ivolg © (26.04.04 19:19) [22]

Знают практически все. Но знают не то, что хочется Тебе.
Поясню :

Практически все знают как решить Твою задачу ( написание поздровлялки )
Я так думаю, что никто не знает, а точнее не понимает двух вещей :
1. Где Ты допускаешь ошибку ( Ты же не приводишь полного кода )
2. Когда же Ты наконец возьмешь учебник и начнешь читать про форматы данных.

← →
BigLeha (2004-04-26 21:10) [24]

Поддерживаю Андрея... :)

Когда увидел топик - думал зайду и посмотрю... Может чем помогу... В голове уже накидал код...
А пока читал - запутался и код из головы вылетел.. :(

Да... Книжки надо почитать... И начинать не с Delphi, а например с "Введение в программирование" и т.п.

Поздровлялка Найти похожие ветки