Advertisement
ccs82

Untitled

Jun 5th, 2014
194
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.52 KB | None | 0 0
  1. for I := 0 to Form1.LV1.Items.Count-1 do
  2. begin
  3. if Form1.LV1.Items[I].SubItems[5] = 'OK' then
  4. begin
  5. Form1.LV2.Visible := True;
  6. L := Form1.LV2.Items.Add;
  7. S:= Form1.LV1.Items[I].SubItems[3];
  8. L4 := FindListViewItem(Form1.LV2, S, 4);
  9. if L4 <> nil then
  10. begin
  11. showmessage('Já Existe');
  12. end
  13. else
  14. Form1.LV2.Items.item[Form1.LV2.Items.count-1] := Form1.LV1.items.item[i];
  15. end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement