Tema: pasar for (Entry in FSMBiosTablesList) do a delphi7
Ver Mensaje Individual
  #2  
Antiguo 01-05-2013
Avatar de Al González
[Al González] Al González is offline
In .pas since 1991
  
Registrado: may 2003
Posts: 5.615
Reputación: 32
Al González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en bruto
En teoría, así debería funcionar en "cualquier" versión de Delphi, incluida la 7:
Código Delphi [-]
Function TSMBios.GetSMBiosTableEntries (TableType :TSMBiosTablesTypes)
  :Integer;
Var
  I :Integer;
Begin
  Result := 0;

  For I := 0 To High (FSMBiosTablesList) Do
    If FSMBiosTablesList [i].Header.TableType = Byte (TableType) Then
      Inc (Result);
End;

Saludos.
__________________
Tras casi seis años de trabajar para una empresa alemana como desarrollador Delphi, se vieron forzados a dejarme ir (temas presupuestales). Así que ahora estoy abierto a escuchar nuevas ofertas.
Responder Con Cita