Сравнить два набора данных datetime

[alex89d]

Доброе время суток! Ошибка в цикле, совсем запутался(((
Есть два списка типе datetime, нужно пробежать по двум спискам и в третий вывести все значения где разница между датами больше одного дня или если даты равны то разницу между временем больше к примеру 1 часа. кто может помочь?:confuse d:

[Toxa]

где сам цикл? что за ошибка? в каком месте при дебаге валится?

[alex89d]

var i, j: integer;
a:Boolean;
tm1,tm2,dat,tim:TDateTime;
begin
  a:=False;
  for i:=0 to lst1.Items.Count-1 do
     begin
       tm1:=StrToDateTime(lst1.Items.Strings[i]);
        for j:=0 to lst2.items.count-1 do
           begin
              tm2:=StrToDateTime(lst2.Items.Strings[j]) ;
              if tm1>tm2 then
                 begin
                   dat:= Trunc(DaySpan(tm1, tm2));
                   tim := tm1 - tm2;
                   end else
                   begin
                    dat:= Trunc(DaySpan(tm2, tm1));
                    tim := tm2 - tm1;
                   end;
               if (StrToint(floatTostr(dat))>StrToint('0')) and
               (StrToTime(TimeToStr(tim))>StrToTime('01:00:00'))
                 then
                 begin
                   A := True;
                 end;
 
                if a=True then
                    begin
                      lst3.Items.Add(DateTimeToStr(tm2));
                    end;
              a:=False;
 
           end;
 
     end;
 
end;

____
Не забывайте в сообщении форматировать исходный код!
Модератор

[Toxa]

зачем так писать

StrToint('0')

? можно же просто ноль поставить

а эта конструкция зачем?

StrToint(floatTostr

достаточно будет trunc(dat)
кстати ошибка тут и валится

StrToTime(TimeToStr

опять из пустого в порожнее

begin
A := True;
end;

if a=True then
begin
lst3.Items.Add(DateTimeToStr(tm2));
end;
a:=False;

зачем переменная А?
можно же вместо "A := True;" сразу поставить "lst3.Items.Add(DateTimeToStr(tm2)) ;" результат будет тот же