Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=128987&view=findpost&p=982424 Sat, 14 Jan 2006 19:53:38 +0000 Unit'ы https://forum.sources.ru/index.php?showtopic=128987&view=findpost&p=982424 HyperTerraSoft Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=128987&view=findpost&p=982392 Sat, 14 Jan 2006 19:19:19 +0000 Unit'ы https://forum.sources.ru/index.php?showtopic=128987&view=findpost&p=982392 interface, определить в секции implementation, и ссылку на модуль сделать либо в секции interface, либо в секции implementation другого модуля:

    unit Unit2;
     
    interface
     
    function Test: Boolean;
     
    implementation
     
    function Test: Boolean;
    begin
        Result := False;
    end;
     
    end.


    unit Unit3;
     
    interface
     
    uses Windows;
     
     
    implementation
     
    uses Unit2;
     
    procedure MyProc;
    begin
        if Test
            then MessageBox(0,'True','Внимание',MB_OK)
            else MessageBox(0,'False','Внимание',MB_OK)
    end;
     
    end.
]]> Демо Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=128987&view=findpost&p=982383 Sat, 14 Jan 2006 18:49:55 +0000 Unit'ы https://forum.sources.ru/index.php?showtopic=128987&view=findpost&p=982383 HyperTerraSoft Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=128987&view=findpost&p=982379 Sat, 14 Jan 2006 18:47:20 +0000 Unit'ы https://forum.sources.ru/index.php?showtopic=128987&view=findpost&p=982379 Цитата
А что ты понимашь под словом "видит"??
Для пользованием какой-нить функцией используй form1.[название функции]
Для пользованием какой-нить переменной используй unit1.[название переменной]

Понял Сенкс :whistle:
Цитата
ЗЫ. Никогда не называй себя идиотом, - потом от этой клички очень трудно отделаться!

Я не назвал, а предположил.. :lol:]]> uk- Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=128987&view=findpost&p=982376 Sat, 14 Jan 2006 18:42:41 +0000 Unit'ы https://forum.sources.ru/index.php?showtopic=128987&view=findpost&p=982376 Цитата uk- @
Unit2 не видет Unit1
P.S. Либо я идиот

А что ты понимашь под словом "видит"??
Для пользованием какой-нить функцией используй form1.[название функции]
Для пользованием какой-нить переменной используй unit1.[название переменной]

ЗЫ. Никогда не называй себя идиотом, - потом от этой клички очень трудно отделаться!]]> HyperTerraSoft Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=128987&view=findpost&p=982347 Sat, 14 Jan 2006 18:13:21 +0000 Unit'ы https://forum.sources.ru/index.php?showtopic=128987&view=findpost&p=982347 Цитата uk- @
Unit2 не видет Unit1
P.S. Либо я идиот :whistle:

А зачем тебе вообще эта перекрестная связь нужна?]]> Profi Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=128987&view=findpost&p=982335 Sat, 14 Jan 2006 18:08:29 +0000 Unit'ы https://forum.sources.ru/index.php?showtopic=128987&view=findpost&p=982335 P.S. Либо я идиот :whistle:]]> uk- Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=128987&view=findpost&p=982308 Sat, 14 Jan 2006 17:57:25 +0000 Unit'ы https://forum.sources.ru/index.php?showtopic=128987&view=findpost&p=982308
    unit Unit1;
     
    interface
     
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs;
     
    type
      TForm1 = class(TForm)
      private
        { Private declarations }
      public
        { Public declarations }
      end;
     
    var
      Form1: TForm1;
     
    implementation
     
    uses Unit2;
     
    {$R *.dfm}
     
    end.

    unit Unit2;
     
    interface
     
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs;
     
    type
      TForm2 = class(TForm)
      private
        { Private declarations }
      public
        { Public declarations }
      end;
     
    var
      Form2: TForm2;
     
    implementation
     
    uses Unit1;
     
    {$R *.dfm}
     
    end.
]]> HyperTerraSoft Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=128987&view=findpost&p=982118 Sat, 14 Jan 2006 15:13:43 +0000 Unit'ы https://forum.sources.ru/index.php?showtopic=128987&view=findpost&p=982118
    implementation
    uses
    Unit2;

А в Unit2 написал
    interface
     
    uses
    Unit1;

И Unit2 не видит unit1

Добавлено
и при том [Fatal Error] Unit2.pas(7): Could not compile used unit 'Unit1' - указывая на
    implementation
    uses
    Code;
]]> uk- Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=128987&view=findpost&p=982113 Sat, 14 Jan 2006 15:09:50 +0000 Unit'ы https://forum.sources.ru/index.php?showtopic=128987&view=findpost&p=982113
Ты должен хотя бы в одном модуле подключать второй в разделе Implementation... Если оба модуля подключают друг друга в разделе Interface - это недопустимо...]]> volvo877 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=128987&view=findpost&p=982111 Sat, 14 Jan 2006 15:05:40 +0000 Unit'ы https://forum.sources.ru/index.php?showtopic=128987&view=findpost&p=982111
Добавлено
Помечает на на Unit2 в модуле Unit1 и говорит [Fatal Error] Unit1.pas(7): Circular unit reference to 'Unit1']]> uk- Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=128987&view=findpost&p=982109 Sat, 14 Jan 2006 15:05:02 +0000 Unit'ы https://forum.sources.ru/index.php?showtopic=128987&view=findpost&p=982109 Profi Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=128987&view=findpost&p=982107 Sat, 14 Jan 2006 15:00:28 +0000 Unit'ы https://forum.sources.ru/index.php?showtopic=128987&view=findpost&p=982107 Извиняюсь за, возможно, глупый вопрос..]]> uk- Delphi: Общие вопросы