Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   de VB a D6 (https://www.clubdelphi.com/foros/showthread.php?t=24379)

mosorio 18-08-2005 08:59:49

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

kalimero 18-08-2005 10:15:26

Hola

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

Saludos

afxe 18-08-2005 10:20:53

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

mosorio 18-08-2005 10:50:33

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

Gracias nuevamente


La franja horaria es GMT +2. Ahora son las 02:08:28.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi