В общем,как из юнита вызвать процедуру,которая находится в главном файле?

Вообщем на предидущие посты можно уже не отвечать.Просто скажите что значит ошибка "Circular unit dependencies between unit 'ololo' and 'blabla'".

boNNdaR, на предыдущие как раз и надо ответить: это невозможно. Компиль говорит, что два юнита ссылаются друг на друга, а это не есть good Делать надо примерно так: во втором юните, с которого хочешь вызвать процедуру ставишь флаг: бульку или инт, а в первом процедуру, которая следит за ее состоянием и вызывает нужную процедуру, меня флаг обратно на false или 0. Когда тебе нужно будет вызвать процедуру в первом юните - тупо поставь флаг, и когда до него дойдет очередь - его вызовут.

Как зделать вывод случайных чисел? Например от 1 до 100

fanat-annimon,
function random(n: integer): integer;

Возвращает псевдослучайное число между 0 и (n-1).

Следующая функция возвращает случайное значение типа boolean; возможность того, что возвращаемое значение будет равно 'true' равна 75%:

   function randomBoolean: boolean;
   begin
     if random(4) = 3 then
       randomBoolean := false;
     else
       randomBoolean := true;
   end;
Ну и рандомайз
randomize


 

procedure randomize;

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

fanat-annimon, короче пиши random(100)
Вот только я не знаю от нуля ли будет рандомить

Serg, random(100)+1 - это от 1 до 100

Serg, Спасибо но я ни че не понял , новичёк.
Что означает это преременная a : array [1..N] of real; ?

HoldFast, ну и конечно лучше в переменную засунуть

fanat-annimon, это массив состоящий из цифр с плавающей точкой