pues sinceramente...estaba buscando algo como readblock o algo asi y no lo he encontrado. Lo q se me ocurre es:
- creas un loop for ...next de, por ejemplo, 10000 ciclos y mides su tiempo
- dentro de otro loop for...next, pones algo asi como s[i] := 1, y mides su tiempo. Restando el tiempo del loop vacio, Sera el tiempo de escritura
- dentro de otro, haces temp := s[i] y sera el tiempo de lectura (restando el del loop vacio).
No se me ocurre nada mas
no se si sera diferente velocidad si se asignan enteros o chars (supongo que si) o si delphi usa algun tipo de verificacion en las asignaciones (que tambien lo creo) por lo q te daria una medida erronea. Prueba de hacer una busqueda por 'benchmark', a ver q encuentras...saludos