2015-12-28 14:25:15 +03:00
|
|
|
|
// Иллюстрация поиска имен вначале справа налево в секции uses, а затем в системном модуле PABCSystem
|
2015-05-14 22:35:07 +03:00
|
|
|
|
uses System;
|
|
|
|
|
|
|
|
|
|
|
|
begin
|
2015-12-28 14:25:15 +03:00
|
|
|
|
// Имя Random, определенное в пространстве имен System, перекрывает имя Random
|
|
|
|
|
|
// в модуле PABCSystem, который неявно подключается первым
|
2015-05-14 22:35:07 +03:00
|
|
|
|
var r: Random := new Random();
|
|
|
|
|
|
writeln(r.Next(10));
|
2015-12-28 14:25:15 +03:00
|
|
|
|
// Именно поэтому перед данным Random необходимо явно указывать имя модуля, в котором он находится
|
2015-05-14 22:35:07 +03:00
|
|
|
|
var i: integer := PABCSystem.Random(10);
|
|
|
|
|
|
writeln(i);
|
|
|
|
|
|
end.
|