Таймер в миллисекундах или наносекундах для проверки скорости трех файлов ISAM в Delphi7

Delphi , Синтаксис , Циклы

Привет, разработчики Delphi! Сегодня мы рассмотрим, как создать таймер в миллисекундах или наносекундах для проверки скорости трех файлов ISAM в Delphi7. У нас есть три файла ISAM: первый содержит 50 записей, второй - 500, а третий - 5000. Нам нужно сравнить строку с последней записью в каждом файле и измерить время, затраченное на поиск.

Во-первых, давайте создадим файлы ISAM и заполним их записями:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  content: string;
  indexCounter: integer;
  keyword: string;
begin
  // Создание первого файла ISAM с 50 записями
  AssignFile(indF1, 'index1.ind');
  ReWrite(indF1);
  Reset(indF1);
  for i := 0 to 49 do
  begin
    content := 'record_';
    content := content + IntToStr(i + 1);
    index1.index1 := content;
    index1.position1 := FileSize(indF1);
    Seek(indF1, FileSize(indF1));
    Write(indF1, index1);
  end;
  CloseFile(indF1);
  Label12.Caption := FileSizeStr('index1.ind');

  // Создание второго файла ISAM с 500 записями
  AssignFile(indF2, 'index2.ind');
  ReWrite(indF2);
  Reset(indF2);
  for i := 0 to 499 do
  begin
    content := 'record_';
    content := content + IntToStr(i + 1);
    index2.index2 := content;
    index2.position2 := FileSize(indF2);
    Seek(indF2, FileSize(indF2));
    Write(indF2, index2);
  end;
  CloseFile(indF2);
  Label13.Caption := FileSizeStr('index2.ind');

  // Создание третьего файла ISAM с 5000 записями
  AssignFile(indF3, 'index3.ind');
  ReWrite(indF3);
  Reset(indF3);
  for i := 0 to 4999 do
  begin
    content := 'record_';
    content := content + IntToStr(i + 1);
    index3.index3 := content;
    index3.position3 := FileSize(indF3);
    Seek(indF3, FileSize(indF3));
    Write(indF3, index3);
  end;
  CloseFile(indF3);
  Label14.Caption := FileSizeStr('index3.ind');
end;

Теперь, давайте создадим функцию таймера, которая будет измерять время в миллисекундах или наносекундах:

function GetTime: Double;
var
  CountsPerSec: Double;
  StartCount, EndCount: Cardinal;
begin
  // Получение частоты тактовой частоты процессора в counts/second
  if not QueryPerformanceFrequency(CountsPerSec) then
    raise Exception.Create('QueryPerformanceFrequency failed.');

  // Получение начального значения счетчика
  if not QueryPerformanceCounter(StartCount) then
    raise Exception.Create('QueryPerformanceCounter failed.');

  // Код, время которого мы хотим измерить
  // ...

  // Получение конечного значения счетчика
  if not QueryPerformanceCounter(EndCount) then
    raise Exception.Create('QueryPerformanceCounter failed.');

  // Возвращение времени в секундах
  Result := (EndCount - StartCount) / CountsPerSec;
end;

Теперь мы можем использовать функцию таймера для измерения времени поиска в наших файлах ISAM:

procedure TForm1.Button2Click(Sender: TObject);
var
  i: integer;
  content: string;
  indexCounter: integer;
  keyword: string;
  StartTime, ElapsedTime: Double;
begin
  // Поиск в первом файле ISAM
  Reset(indF1);
  keyword := 'record_50';
  indexCounter := 0;
  StartTime := GetTime;
  while not Eof(indF1) do
  begin
    Seek(indF1, indexCounter);
    Read(indF1, Index1);
    if (keyword = Index1.index1) then
    begin
      ElapsedTime := GetTime - StartTime;
      Label20.Caption := Format('First file elapsed time: %f seconds', [ElapsedTime]);
      Break;
    end;
    indexCounter := indexCounter + 1;
  end;

  // Поиск во втором файле ISAM
  Reset(indF2);
  keyword := 'record_500';
  indexCounter := 0;
  StartTime := GetTime;
  while not Eof(indF2) do
  begin
    Seek(indF2, indexCounter);
    Read(indF2, Index2);
    if (keyword = Index2.index2) then
    begin
      ElapsedTime := GetTime - StartTime;
      Label21.Caption := Format('Second file elapsed time: %f seconds', [ElapsedTime]);
      Break;
    end;
    indexCounter := indexCounter + 1;
  end;

  // Поиск в третьем файле ISAM
  Reset(indF3);
  keyword := 'record_5000';
  indexCounter := 0;
  StartTime := GetTime;
  while not Eof(indF3) do
  begin
    Seek(indF3, indexCounter);
    Read(indF3, Index3);
    if (keyword = Index3.index3) then
    begin
      ElapsedTime := GetTime - StartTime;
      Label22.Caption := Format('Third file elapsed time: %f seconds', [ElapsedTime]);
      Break;
    end;
    indexCounter := indexCounter + 1;
  end;
end;

Теперь, когда вы нажмете кнопку Button2, вы увидите время, затраченное на поиск в каждом файле ISAM. Обратите внимание, что мы используем Break для выхода из цикла while после нахождения соответствующей записи.

Надеюсь, эта статья помогла вам создать таймер в миллисекундах или наносекундах для проверки скорости трех файлов ISAM в Delphi7. Удачи в ваших проектах!

Создано по материалам из источника по ссылке.

Данный текст является руководством для разработчиков, которые хотят создать таймер в миллисекундах или наносекундах для проверки скорости трех файлов ISAM в Delphi7.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Циклы ::