переменные в unit

[nepopus]

Чтото я совсем запутался.
Разбираюсь потихоньку с юнитами и столкнулся с таким вопросом:

Можно ли из юнита(или основного скрипта) передавать в другой юнит переменные из заголовка(не используя передачу в параметрах процедур)? Если нет, то почему при дублировании в двух юнитах, он видит, что они дублированы и дает ошибку.

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

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

Code: Select all

begin
  addtosystemjournal(perem);
end.

[Vizit0r]

примеры в студию.
на словах я ничего не понял

[nepopus]

примеры в студию.
на словах я ничего не понял

Переформулирую:
Как перенести переменную из основного скрипта в основную процедуру юнита?

[Vizit0r]

никак. юниты компилируются ПЕРЕД основным скриптом.
как вариант, можно переменные из основного скрипта перенести в юнит, и они станут доступны везде.
но это лишь предположение, надо проверять.

[nepopus]

никак. юниты компилируются ПЕРЕД основным скриптом.
как вариант, можно переменные из основного скрипта перенести в юнит, и они станут доступны везде.
но это лишь предположение, надо проверять.

Выдает ошибку о дублировании, если вставить в оба и выдает ошибку об отсутствующей переменной, если поместить ее в любом из скриптов :\

[Vizit0r]

завтра гляну, что там за магия в компиляторе ПС происходит при использовании юнитов.

[nepopus]

вопрос актуален = ) Извиняюсь за настырность, но хочется знать как переносить переменные в основную процедуру юнита.

[Vizit0r]

проблемы не увидел совсем.
юнит

Code: Select all

unit Unit1;
 
interface
var fg : String;
 
function MergeStrings(S1: string; S2: string): string;
implementation

function MergeStrings(S1: string; S2: string): string;
begin
fg := fg+'ddd';
Result := S1 + ' ' + S2 + fg;
end;

end.

скрипт

Code: Select all

Program New;
uses unit1; 
var bbb : String;
begin
fg := 'xxx';
bbb := MergeStrings('a','g');
fg := 'sdd';
end.

на отладке отлично видно, что после строки

Code: Select all

bbb := MergeStrings('a','g'); 

в fg находится 'xxxddd'.
так что видны в обе стороны.

[nepopus]

все, понял. В теме о unit написано, что можно опустить interface часть, а там, как я только что прочел, "содержатся объявления всех глобальных объектов модуля (типов, констант, переменных и подпрограмм), которые должны быть доступны основной программе и (или) другим модулям Паскаля". Спасибо.

[Vizit0r]

ну как бы скрипт - это и есть основной юнит. так что фраза про доступность "другим юнитам" как раз про это