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