![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
||||
|
||||
![]() Сначало попробовал так, но была ошибка так как число строк менялось после удаления а изначально же записано было больше
Код:
for mem1:=0 to listbox1.Count-1 do begin if DaysBetween(TDateTime(Now()),StrToDate(copy(listbox1.Items[mem1],pos('=',listbox1.Items[mem1])+1,length(listbox1.Items[mem1])))) > 1 then begin listbox1.Items.Delete(mem1); end; end; но так он вобще ничего не делает потяния не имею почему Код:
for mem1:=listbox1.Count-1 to 0 do begin if DaysBetween(TDateTime(Now()),StrToDate(copy(listbox1.Items[mem1],pos('=',listbox1.Items[mem1])+1,length(listbox1.Items[mem1])))) > 1 then begin listbox1.Items.Delete(mem1); end; end; |
#2
|
||||
|
||||
![]() в принципе если первый вариант находил и удалл значит во втором не так ищю?
|
#3
|
||||
|
||||
![]() Код:
for mem1:=listbox1.Count-1 to 0 do begin Цитата:
З.Ы. И mem1 надо по моему увеличивать в цикле Inc(mem1) или mem1:=mem1+1; |
#4
|
||||
|
||||
![]() делай так:
Код:
mem1:=0; while mem1<=ListBox1.Items.Count do begin if DaysBetween(TDateTime(Now()), StrToDate(copy(listbox1.Items[mem1], pos('=',listbox1.Items[mem1])+1,length(listbox1.Items[mem1])))) > 1 then begin listbox1.Items.Delete(mem1); dec(mem1); end; inc(mem1); end; jmp $ ; Happy End! The Cake Is A Lie. |
#5
|
||||
|
||||
![]() DownTo вместо To сделал, спасибо
|