FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
#1
|
|||
|
|||
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 Si me puden ayudar en esto o aportar una idea, lo agradeceria, es algo urgente, de vida o muer.... |
#2
|
||||
|
||||
Hola
Busca en la ayuda de Delphi informacion referente a los array,mas concretamente las funciones: Low, High Saludos |
#3
|
|||
|
|||
A lo mejor soy torpe, pero no lo veo claro:
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...
|
#4
|
|||
|
|||
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 Código:
VB If OperacionEstacion(Estacion).Count = 0 Then y lo he pasado a D6 asi: D6 if Length(OperacionEstacion[Estacion].Operacion) = 0 then |
|
|
|