Hola buenas, aber si me podeis echar una mano con este codigo, es de vb6:
Private Sub Timer1_Timer()
On Error Resume Next
Dim vIndex As Variant
Dim i As Long
For i = 1 To ListView1.ListItems.Count
vIndex = Split(ListView1.ListItems(i))
If Winsock1(vIndex(0)).State <> 7 Then
ListView1.ListItems.Remove (i)
End If
Next i
End Sub
bien lo traduci a delphi con un programa llamado delux, pero meda error en todos los sitios, si me pudieseis ayudar a traducirlo a delphi y a entender ese trozo codigo... os lo agradezco desde ya!
llevo 1 mes intentado pasalo a delphi pero sin logrosss