تحويل من الفيجوال بيسك الى الدلفي

[anter2016]

PHP كود :

السلام عليكم ورحمة الله وبركاته

هذا الكود للبحث في LISTVIEW
VISUELB
طلب من الاخوة الافاضل التحويل الى دلفي او كود الفلترة والبحث في LISTVIEW 


PHP كود :

For i = 0 To Lv_ListeSaisieP.Items.Count - 1
        MsgBox(Lv_ListeSaisieP.Items.Item(i).SubItems(2).Text)
            MsgBox(Rtuerie.Text)
            If Lv_ListeSaisieP.Items.Item(i).SubItems(2).Text = Rtuerie.Text Then
                Lv_ListeSaisieP.Items.Item(i).Selected = True
                Lv_ListeSaisieP.Items.Item(i).EnsureVisible()
                Exit Sub
            End If
        Next i