Помогите сделать

← →
Mouse (2003-10-30 16:56) [0]

Ситуация такая!
Пишу некую программу ... в ней я испольую кучу процедур и функций своих!
Код получаеться очень большой... (уже 120 страниц)... из них 80% идет описание моих процедур и функций!.. в таком коде Мне очень тяжело чтото редактировать!... тяжело искать "нужное место" ... хочу вынести в отдельный модуль ВСЕ мои процедурки с функциям

Делаю так:
Ето мой модуль:

unit myunit interface implementation procedure testproc; begin *********** Делает чтото! ************* end; end.

Далее сохраняю етот модуль.... закрываю делфи (на всякий случай)..нахожу файл myunit.dcu ... на всякий случай копирую его в папочку LIB... потом запускаю делфю!,.. создаю новый проект.... в коде после implementation вписываю uses myunit;

и в итоге код программы выглядет так:

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses myunit; {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin testproc; //тестовая процедурка из модуля end; end.

И в итоге моя программа ругаеться:
Undeclared identifier: "testproc"

Обьясните пожалуйста что я делаю не так!

Заранее спасибо!

← →
MBo © (2003-10-30 16:57) [1]

снаружи видно то, что объявлено в секции interface

← →
Mouse (2003-10-30 17:00) [2]

> MBo © (30.10.03 16:57) [1]
> снаружи видно то, что объявлено в секции interface

та я уже и после interface обьявлял и после implementation
И даже пробовал и там и там обьявить!
В итоге всеравно не пашет (((

← →
Юрий Зотов © (2003-10-30 17:01) [3]

unit myunit

interface

procedure testproc;

implementation

procedure testproc;
begin
...
end;

end.

← →
Anatoly Podgoretsky © (2003-10-30 17:06) [4]

Mouse (30.10.03 17:00) [2]
Это ты говоришь, но кода в подтверждение не приводишь, но смотри ответ ЮЗ его должно хватить.

unit myunit interface procedure testproc; implementation procedure testproc; begin *********** Делает чтото! ************* end; end.

← →
Mouse (2003-10-30 19:02) [6]

Огромное спасибо!
Действительно вся проблема была в том, что небыло строки в моем модуле

procedure testproc;

после

implementation

Помогите сделать Найти похожие ветки