Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 18-08-2005
mosorio mosorio is offline
Miembro
 
Registrado: may 2003
Posts: 159
Poder: 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
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 02:59:03.


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
Copyright 1996-2007 Club Delphi