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