Цитата(sim7 @ 24.9.2005, 18:09)

Что подскажете?

Однако ж и наворотили кода! Всего одну строчку нужно добавить:

Код

...         szTime = lbTime->Items->Strings[i];         szTime.SetLength(19); // берем только первые 19 символов, т.е. дату и время         if(!TryStrToDateTime(szTime, DateTime)) ...

Это сообщение отредактировал(а) rsm - 25.9.2005, 16:00

exellent

В общем и целом, код ниже работает:

Код

AnsiString szTime;  TDateTime DateTime;  int i;  i = ListBox1->Items->Count;  if(!i) return;  while(i--)  {   szTime = ListBox1->Items->Strings[i];   szTime.SetLength(18);   if(!TryStrToDateTime(szTime, DateTime)) return;   if(DateTime <= Now())   {    Timer->Enabled=false;    ShowMessage("Событие наступило!");    ListBox1->ItemIndex=i;    ListBox1->Top=i;    Timer->Enabled=true;    return;   }  }

Только еще одна проблема. Как видно из кода, мне не нужно удалять сообщение из списка. Мне нужно только сообщить о его наступлении и выделить его. Приведенный же выше код продолжает сообщать о наступлении этого события.
Возникает две необходимости:
1. Сделать так, чтобы напоминание возникало только один раз.
2. Сделать так, чтобы "напоминальщик" не напоминал о событиях, которые были уже давно (но это необязательно).
Значит, надо сделать №1 из вышесказанного. Не подскажете, как? Хоть намекните, а то вы все за меня делаете...

А что это вдруг все замолчали?

Цитата(sim7 @ 28.9.2005, 20:09)

А что это вдруг все замолчали?

не в обиду будет сказано... просто я вот так со стороны смотрю... ты сам хоть чего-нибудь пишешь? ибо последние пару месяцев я видел только посты с готовыми решениями на твои вопросы...

Цитата

не в обиду будет сказано

Я не обижаюсь. Вы все правильно подметили. Я это тоже заметил. Но если я просто не знаю, как это написать? Если бы я хоть примерно знал, я бы и не спрашивал...

Попробовал прервать постоянное напоминание вот таким вот образом:

Код

AnsiString szTime;  TDateTime DateTime;  int i;  bool stop=false;  i = ListBox1->Items->Count;  if(!i) return;  while(i--)  {   while(!stop)   {    szTime = ListBox1->Items->Strings[i];    szTime.SetLength(18);    if(!TryStrToDateTime(szTime, DateTime)) return;    if(DateTime <= Now())    {     Timer->Enabled=false;     ShowMessage("Событие наступило!");     ListBox1->ItemIndex=i;     ListBox1->Top=i;     Timer->Enabled=true;     stop=true;     return;    }   }  }

Однако, цикл все равно продолжается. Почему так?

Цитата(sim7 @ 26.9.2005, 22:40)

1. Сделать так, чтобы напоминание возникало только один раз. 2. Сделать так, чтобы "напоминальщик" не напоминал о событиях, которые были уже давно

Всего одно условие изменить нужно:

Код

if(DateTime == Now())        {

Воистину, сразу видно, что написано чужими руками, без подключения собственной головы.

Цитата(sim7 @ 2.10.2005, 12:06)

Однако, цикл все равно продолжается. Почему так?

Потому что переменная stop локальная, ее значение устанавливается заново при каждом входе в функцию.

Цитата

Всего одно условие изменить нужно

Я думал над этим. Правда, думал. Я просто хотел, чтобы кто-нибудь это подтвердил.

Цитата

локальная

Тогда ее можно объявить как static, тогда все будет нормально, да?
В принципе, я сделал немного по-другому. Вот так:

Код

AnsiString szTime;  TDateTime DateTime;  int i;  i = ListBox1->Items->Count;  if(!i) return;  while(i--)  {   szTime = ListBox1->Items->Strings[i];   szTime.SetLength(18); // берем только первые 18 символов, т.е. дату и время   if(!TryStrToDateTime(szTime, DateTime)) return;   if(DateTime <= Now())   {    Timer->Enabled=false;    CheckBox1->Checked=false;    MessageBox(NULL,"Одно из указанных в списке событие наступило! В списке заданное на это время событие было выделено.","Информация",MB_ICONINFORMATION);    ListBox1->ItemIndex=i;    ListBox1->TopIndex=i;    if(MessageBox(NULL,"Вы должны удалить наступившее событие, иначе вы не сможете снова включить напоминания (программа будет постоянно напоминать об уже прошедшем событии). Удалить событие? Если вы отвечаете \"Нет\", то вам придется сделать это вручную.","Информация",MB_ICONQUESTION|MB_YESNO)==IDYES)    {     ListBox1->Items->Delete(i);     MessageBox(NULL,"Наступившее событие было успешно удалено. Напоминания включены.","Информация",MB_ICONINFORMATION);     CheckBox1->Checked=true;     Form1->ListBox1->Items->SaveToFile("do.txt");    }    else MessageBox(NULL,"Удаление события отменено. Напоминания выключены.","Информация",MB_ICONINFORMATION);    return;   }  }

Добавлено @ 11:38
Но, думаю, все же ваш вариант лучше. Или оставить как есть? Мне в принципе и так и так нравится...

Цитата(sim7 @ 2.10.2005, 13:37)

Тогда ее можно объявить как static, тогда все будет нормально, да?

Нормально будет только в случае, если объявишь переменную как глобальную.

2Sim7: удивляюсь...удивляюсь... буквально развел чуваков... на 2 страницы резину растянул... как же ты "опытным"-то стал??? (не в обиду будет сказано) Но твою фразу "Сложная, наверное, задачка" я расцениваю как насмешку... Не, я понимаю если б ты числился новичком, хотя ладно - тема-то закрыта

Я, извиняюсь, опытный по количеству сообщений. Эти звания придумал не я и не вы, и не мне и не вам их оценивать! А в программировании я еще вовсе не считаю себя опытным, как вы сказали, я знаю прекрасно, что я новичок! У вас, может быть, все хорошо получается, а вот у меня туговато, особенно без учителя! Так что не надо меня ругать. Сам недоволен.
Закрывайте тему, вроде, все выяснили.

приношу свои извинения

оценивать может и не нам, но судят то по ним. и соответственно помогают как опытному...

P.S.
попроси у модераторов чтобы статус сменили на "не опытный"

Цитата

приношу свои извинения

Ладно, мир.

Цитата

попроси у модераторов чтобы статус сменили на "не опытный"

А можно? Ладно, тогда это мысль. Сейчас найдем кого-нибудь...

P.S. Модераторы, закройте тему! А то мы и я в частности не удержимся от оффтопа...