[ALexandr555]

Сначало попробовал так, но была ошибка так как число строк менялось после удаления а изначально же записано было больше

Код:

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;

[ALexandr555]

в принципе если первый вариант находил и удалл значит во втором не так ищю?

[deltas]

Код:

for mem1:=listbox1.Count-1 to 0 do begin

Как он будет искать, если цикл состоит из 0 раз ?

Сначало попробовал так, но была ошибка так как число строк менялось после удаления а изначально же записано было больше

А тут совсем не понял вопрос, можно поподробней?

З.Ы. И mem1 надо по моему увеличивать в цикле Inc(mem1) или mem1:=mem1+1;

[Bargest]

делай так:

Код:

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;

или же второй вариант c DownTo вместо To

[ALexandr555]

DownTo вместо To сделал, спасибо