Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- for I := 0 to Form1.LV1.Items.Count-1 do
- begin
- if Form1.LV1.Items[I].SubItems[5] = 'OK' then
- begin
- Form1.LV2.Visible := True;
- L := Form1.LV2.Items.Add;
- S:= Form1.LV1.Items[I].SubItems[3];
- L4 := FindListViewItem(Form1.LV2, S, 4);
- if L4 <> nil then
- begin
- showmessage('Já Existe');
- end
- else
- Form1.LV2.Items.item[Form1.LV2.Items.count-1] := Form1.LV1.items.item[i];
- end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement