• Registered: 2018-11-13
  • Posts: 299

Topic: команда uses

не могу понять как она работает, скачал чужой проект как пример или попробовал сделать в своём. Итог один и тот же. После строки end. просто через какое то количество пробелов красная строка без пояснений. Пример моего кода:

uses
  'задачник.pas';

begin

end.

может что то дописать нужно?

  • Registered: 2014-02-14
  • Posts: 10,294

Re: команда uses

Это целый скрипт вашего проекта? или его часть?

Dmitry.

3 Reply by agatlogic101 (edited by agatlogic101 2020-02-27 11:30:27)

  • Registered: 2018-11-13
  • Posts: 299

Re: команда uses

Целый, пробую как в примере
https://vk.com/@createmyvisualdatabasea … aem-derevo сделать. Оттуда скачал проект, но ошибка такая же. Незапускается проект.
Просто хочу свой проект немного облегчить при запуске. Что бы пока я работаю с одной частью кода, отключать ненужную. Что даст возможность программе грузится не минуту, а пару секунд.
вот ссылка на тот проект для скачивания
https://vk.com/away.php?to=https%3A%2F% … Qi-j3Rzrvm

  • Registered: 2014-02-14
  • Posts: 10,294

Re: команда uses

Ошибка связано с тем, что в последних версиях изменилась функцию Random.


Откройте пожалуйста файл secure.pas
замените 39 строку

result := result + AAlphabet[trunc(random()*length(AAlphabet))+1];

на

result := result + AAlphabet[trunc(random(length(AAlphabet)))+1];
Dmitry.
  • Registered: 2018-11-13
  • Posts: 299

Re: команда uses

спасибо