Оптимизация производительности: правильное добавление случайных строк в TStringList

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

В процессе разработки на Delphi мы часто сталкиваемся с необходимостью добавлять случайные строки в TStringList. Однако, при неправильном подходе это может привести к повторениям и ухудшению производительности. В этой статье мы рассмотрим типичную проблему, с которой разработчики могут столкнуться при добавлении случайных строк в TStringList, и узнаем, как ее решить.

Проблема:

Разработчик хочет добавить в TStringList строки, сгенерированные функцией MakeCode. Однако, при добавлении строк без задержки (например, Sleep(50) или ShowMessage) он получает повторения. Если же добавить задержку, то все работает Correctly.

Пример кода:

procedure TForm1.Button1Click(Sender: TObject);
var
  AddToMemo: TStringList;
  sResult: string;
  loop: Integer;
begin
  AddToMemo := TStringList.Create;
  AddToMemo.Clear;
  AddToMemo.Sorted := False;
  for loop := 1 to 1000 do
  begin
    sResult := MakeCode(5, True, False, '');
    //Sleep(50); // Если раскомментировать, то все работает Correctly
    AddToMemo.Add(sResult + IntToStr(loop));
  end;
  // Если раскомментировать Sleep, то в Memo будет 1000 уникальных строк
  // Если Sleep закомментировать, то в Memo будут повторения
end;

Причина проблемы:

Проблема заключается в функции Randomize. Это функция инициализируется вычислением по системным часам. Если вызвать ее в быстром цикле, она будет инициализироваться одним и тем же семенем, что приведет к повторениям. Именно поэтому задержка (например, Sleep(50)) меняет результат, так как дает время системе обновить часы и, следовательно, семя для Randomize.

Решение:

Чтобы решить проблему, достаточно вызвать Randomize один раз перед началом заполнения TStringList. Это гарантирует, что семя будет уникальным для каждого запуска приложения. Кроме того, не следует вызывать Randomize внутри функции MakeCode, так как это может привести к неожиданному поведению.

Пример правильного кода:

procedure TForm1.Button1Click(Sender: TObject);
var
  AddToMemo: TStringList;
  sResult: string;
  loop: Integer;
begin
  AddToMemo := TStringList.Create;
  AddToMemo.Clear;
  AddToMemo.Sorted := False;
  Randomize; // Вызываем Randomize один раз перед началом заполнения TStringList
  for loop := 1 to 1000 do
  begin
    sResult := MakeCode(5, True, False, '');
    AddToMemo.Add(sResult + IntToStr(loop));
  end;
  // В Memo будет 1000 уникальных строк без необходимости в Sleep
end;

Используя этот подход, вы гарантируете, что ваши случайные строки действительно будут уникальными, а производительность вашего приложения останется на высоком уровне.

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

Статья описывает проблему с повторениями при добавлении случайных строк в TStringList в Delphi и предлагает решение для ее устранения.

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

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

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