Delphi 6 -программирование



 

11.7.5. Пример использования

В следующем листинге приводится текст модуля, который создает окно, показанное на рис. 11.1.

Программа создает дисковый файл, состоящий из 100000 случайных вещественных чисел (длину файла можно выбрать другой, если изменить значение редактора длина массива). Файл с именем test.dat создается путем отображения файла в память (кнопка память) и традиционным способом (кнопка Файл). В обоих случаях показывается время счета (процессор 400 МГц, память 64 Мбайт). Чем больше частота и память, тем больше будет разница во времени.

Рис. 11.1. Окно демонстрационнойпрограммы

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, For.gif" >

Начало Вперед