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.604
Reputación: 29
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.
Responder Con Cita