Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.036 c