Pętle memo zgubiłem sie

0

PIsze sobie coś takiego że z listview sprawdzam pewien warunek jeśli jest spełniony to do memo dodaje subitem z listview wcześniej sprawdzam czy w memo nie ma już tego. Ale boli mnie głowa i chyba się gdzieś zapętliłem patrze w to i patrze i nie widze gdzie jest błąd

for i:=0 to listview1.Items.Count-1 do
        begin
          if strtoint(listview1.Items[i].SubItems[3])>=czas then
          begin
          nazwa:=listview1.Items[i].SubItems[0];
             for j:=0 to memo1.Lines.Count do
             begin
                 if memo1.Lines[j]<>nazwa then 
                 memo1.Lines.Add(nazwa);
             end;
          end;
        end;

zamiast 1 lini dodaje wszystkie tyle razy ile jest lini w listview a czasem nawet więcej

0
for i:=0 to listview1.Items.Count-1 do
begin
  if strtoint(listview1.Items[i].SubItems[3])>=czas then
  begin
    nazwa:=listview1.Items[i].SubItems[0];
    if Memo1.Lines.IndexOf(nazwa)=-1 Then   
      memo1.Lines.Add(nazwa);
  end;
end;

Bład miales tu:

   for j:=0 to memo1.Lines.Count do
   begin
     if memo1.Lines[j]<>nazwa then 
     memo1.Lines.Add(nazwa);
   end;

Przeciez to dodawało za kazdym razem element gdy to z czym porownywales zmienna nazwa nie było jej równe.

1 użytkowników online, w tym zalogowanych: 0, gości: 1