Autor Tema: Duda en Delphi (Leído 3896 veces)

chuli17 · « **en:** Lunes 21 de Febrero de 2011, 06:07 »

Hola buenas, aber si me podeis echar una mano con este codigo, es de vb6:

Código: Visual Basic

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

chuli17

Ya e conseguido que me valla el codigo porfin!!! aora tengo otro ploblema... e creado un cliente y un servidor con conexion inversa, pero cuando se conecta el servidor al cliente en el listview me sale repetido, osea dos veces, ¿que puedo acer para ke me salga una vez?? con mas que busco el google no me sale nada....

Rogerz · « **Respuesta #2 en:** Jueves 2 de Junio de 2011, 23:31 »

oye pero almenos pudiste haber agregado el codigo o correccion que te soluciono las cosas...

jony33

e creado un cliente y un servidor con conexion inversa, pero cuando se conecta el servidor al cliente en el listview me sale repetido, osea dos veces, ¿que puedo acer para ke me salga una vez?? con mas que busco el google no me sale nada....

SoloCodigo

Autor Tema: Duda en Delphi (Leído 3896 veces)

chuli17

Duda en Delphi

chuli17

Re: Duda en Delphi

Rogerz

Re: Duda en Delphi

jony33

Re:Duda en Delphi