Форум: "Основная";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];
Вниз
Помогите сделать Найти похожие ветки
← →
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]
Это ты говоришь, но кода в подтверждение не приводишь, но смотри ответ ЮЗ его должно хватить.
← →
Владислав (2003-10-30 17:09) [5]
unit myunit
interface
procedure testproc;
implementation
procedure testproc;
begin
***********
Делает чтото!
*************
end;
end.
← →
Mouse (2003-10-30 19:02) [6]Огромное спасибо!
Действительно вся проблема была в том, что небыло строки в моем модуле
procedure testproc;
после
implementation
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.56 c
