Clipper/FiveWin - Cuantos ficheros tengo abiertos?

   
Vista:

Cuantos ficheros tengo abiertos?

Publicado por Balterra balterra@hotmail.com (38 intervenciones) el 07/12/2012 13:14:24
Hola a todos,

Tengo un programa en Clipper5.03 compilado con Blinker 7.0. Necesito saber cuantos ficheros tengo abiertos en cada momento. Hay alguna funcion que me lo indique?

Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Cuantos ficheros tengo abiertos?

Publicado por Javier (44 intervenciones) el 12/12/2012 13:58:41
Hola, fijate si este código te sirve. Saludos

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
FUNCTION MAIN()
 
   LOCAL nTablas
 
   USE Tabla1   NEW
 
   USE Tabla2   NEW
 
 
   nTablas := ContarAbiertas()
 
   ? nTablas // Para este ejemplo, te va a mostrar: 2
 
   Inkey(0)
 
RETURN NIL
 
 //.....................................................................................  
 
FUNCTION ContarAbiertas()
 
   LOCAL nI
   LOCAL nCant := 0
 
   FOR nI := 0 TO 250
 
      SELECT (nI)
      IF Used()
         // ? ALIAS( nI ) <- te muestra el nombre de la tabla.
         nCant++
      ENDIF
   NEXT
 
RETURN nCant
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar