Tema: de VB a D6
Ver Mensaje Individual
  #1  
Antiguo 18-08-2005
mosorio mosorio is offline
Miembro
 
Registrado: may 2003
Posts: 159
Reputación: 22
mosorio Va por buen camino
Question de VB a D6

Hola compañeros,
Tengo una duda que me agobia y necesito que me saquen de ella.
En un codigo en VB tengo:
If OperacionEstacion(Estacion).Count = 0 Then

y lo he pasado a D6 asi:
if Length(OperacionEstacion[Estacion].Operacion) = 0 then

Hago la aclaración que OperacionEstacion es un registro 'record' con un campo llamado Operacion que es un arreglo de enteros y según entiendo lo de VB es una coleccion el cual esta definido asi.
Mejor dicho, el codigo de VB es:
Código:
Function CheckFuncionObj(t, e)
    If TareasEnEstacion(e).Count = 0 Then
        CheckFuncionObj = 1
        Exit Function
    End If
    If FuncionObA(t, e) >= FuncionObD(t, e) Then
        CheckFuncionObj = 1
    Else
        CheckFuncionObjetiva = 0
    End If
End Function
Lo que me interesa por ahora es la primera parte. Como dije antes, tengo definido un registro para las estaciones con un campo de tipo array de enteros y necesito saber si hay asignadas tareas en la estación.
Si me puden ayudar en esto o aportar una idea, lo agradeceria, es algo urgente, de vida o muer....
Responder Con Cita