de VB a D6

[mosorio]

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:

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.... :D

[kalimero]

Hola

Busca en la ayuda de Delphi informacion referente a los array,mas concretamente las funciones: Low, High

Saludos

[afxe]

A lo mejor soy torpe, pero no veo claro tu ejemplo. ¿Podrías mandar las declaraciones de las dos variables? Parece que en VB tienes definido un array de dos dimensiones y en delphi un array de registros el cual uno de los registros es otro array...

[mosorio]

Hola, Gracias por las respuestas, he resuelto el problema y no tenia nada que ver con la función, era el valor de la constante a devolver y que en el codigo que les he colocado retornaba 1 o 0. Entonces por error y por velocidad de avanzar he cometido el fallo de asignar el mismo valor a las dos constantes.

Gracias de todas formas.
Por cierto, si es correcto hacer esto de VB a D6

VB If OperacionEstacion(Estacion).Count = 0 Then

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


Gracias nuevamente