pasar for (Entry in FSMBiosTablesList) do a delphi7
 

Hola en una unit tengo

TSMBiosTableEntry = record
Header: TSmBiosTableHeader;
Index : Integer;
end;

ArrSMBiosTableEntry = Array of TSMBiosTableEntry;

FSMBiosTablesList: ArrSMBiosTableEntry;

como puedo transformar esta funcion a Delphi7

Código Delphi [-]
function TSMBios.GetSMBiosTableEntries(TableType: TSMBiosTablesTypes): integer;
Var
 Entry : TSMBiosTableEntry;
begin
 Result:=0;
  for (Entry in FSMBiosTablesList) do
    if Entry.Header.TableType=Byte(Ord(TableType))  then
      Result:=Result+1;
end;

la unit original TSMBIOS está en http://tsmbios.googlecode.com/svn/trunk/Common/
y el proyecto en http://code.google.com/p/tsmbios/

yo solo quiero obtener la fecha el bios en Delphi7

Gracias de antemano
Fabian

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

Gracias anduvo perfecto :D