Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Вызов функции, написанной в одном модуле из другого модуля [D7, WinXP]

markon © (2005-09-14 00:14:00)
Здравствуйте!

У меня есть несколько модулей. В 1-м написаны процедуры и функции, которые должны вызываться из других модулей.

В том модуле, где происходит вызов я написал в implementation uses unit1. При вызове функции выдаётся ошибка Undeclared identifier с указанием на имя функции.
Пробовал объявить функцию в модуле 1 как
function inttobin(decvalue: Integer): String; far; - не помогло.

Если я объявляю в модуле 2 эту функцию в секции interface - выдаётся ошибка Unsatisfied forward or external declaration
Если делаю в модуле 2 следущее объявление - inttobin: function(decvalue: Integer): String; - программа запускается, но падает с ошибкой ...raised exception class EAxcessVioliation... Read of address 0000000...

В чём здесь дело?

markon (2005-09-14 14:10:00) [1]
А, я понял... Я просто дятел непомнящий :). Написал свою функцию как метод класса формы... Это просто от невнимательности... Прошу прощения и всем спасибо. Теперь работает.

Digitman (2005-09-14 13:45:00) [2]

> markon © (14.09.05 12:45) [10]

думай и комментируй ВСЛУХ - что тобой предписывалось компилятору, когда ты ДВАЖДЫ объявил идентификатор inttohex1 в разделе INTERFACE своего модуля ..

ВСЛУХ думай !

..

PVOzerski (2005-09-14 13:32:00) [3]
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, ComCtrls, ToolWin, StdCtrls;
type
TForm1 = class(TForm)
...
function inttohex1(dec_value: Integer): String; - объявляю свою функцию
private
{ Private declarations }
public
{ Public declarations } - пробовал объявлять здесь, тоже не работает...
end;
var
Form1: TForm1;
...
function inttohex1(dec_value: Integer): String;
implementation
...
uses ..., unit7;

function inttohex1(dec_value: Integer): String; - моя функция
...
begin
...
end;

В заключение: уясни для себя, чем методы классов отличаются от обычных функций - и по сути, и по объявлению.

markon (2005-09-14 12:45:00) [4]
Насчёт объявлений в первом модуле - вот вырезки:

interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, ComCtrls, ToolWin, StdCtrls;
type
TForm1 = class(TForm)
...
function inttohex1(dec_value: Integer): String; - объявляю свою функцию
private
{ Private declarations }
public
{ Public declarations } - пробовал объявлять здесь, тоже не работает...
end;
var
Form1: TForm1;
...
implementation
...
uses ..., unit7;

function inttohex1(dec_value: Integer): String; - моя функция
...
begin
...
end;

В модуле 2 в секции implementation написано uses unit1.

Когда я в модуле 2 не объявляю функцию вообще, то ошибка Undeclared identifier inttohex1. Я так понимаю, что если в модуле 1 функция правильно объявлена и в модуле 2 есть uses unit1, то после компиляции все функции 1-го модуля должны быть доступны для вызова из 2-го. Проблема видимо только в объявлении функции в 1-м модуле...

Вот что делать, правильно объявлять в 1-м, если не правильно, или нужно объявлять во 2-м. Но как и зачем всё-таки это нужно?
Может нужно функцию вызвать каким-то иным способом?

Плохиш (2005-09-14 10:46:00) [5]
А читать книжки так ещё никто и не посоветовал.

PVOzerski (2005-09-14 09:47:00) [6]
1) Надеюсь, заголовки функций, реализованных в implementation-разделе 1-го модуля, повторены в его же interface-секции?

2) Об Access violation. Похоже, что происходит следующее. Ты не получил (см. п. 1) и заменил (или получил, но перекрыл) идентификатор, обозначающий функцию, описанную в unit1, идентификатором, описанным во 2-м модуле и обозначающим процедурную переменную (см. [7]). Естественно, до присвоения ей значения она будет nil (если глобальная) или не весть чем (это если в стеке). Nil - это как раз address 0000000...

PVOzerski (2005-09-14 09:40:00) [7]
2Tonich © (14.09.05 09:02) [6]:
похоже на объявление процедурной переменной

Tonich (2005-09-14 09:02:00) [8]

> inttobin: function(decvalue: Integer): String;

а что это за объявление такое?

begin...end (2005-09-14 08:39:00) [9]
> markon © (14.09.05 00:14)

> function inttobin(decvalue: Integer): String; far; - не
> помогло.

far вообще игнорится компилятором.

Думкин (2005-09-14 08:31:00) [10]
А про Виалейшн - тут код давай. а то я знаю уже где ошибка - в 17-й строке.

Думкин (2005-09-14 08:30:00) [11]
Можно прописать ораздел деклараций т.п тут. В приемлемом приближении?

Германн (2005-09-14 00:49:00) [12]

> У меня есть несколько модулей. В 1-м написаны процедуры
> и функции, которые должны вызываться из других модулей.

А в этом самом 1-м модуле эти процедуры и фунуции продекларированы в секции interface?

TUser (2005-09-14 00:21:00) [13]
> В том модуле, где происходит вызов я написал в implementation uses unit1. При вызове функции выдаётся ошибка Undeclared identifier с указанием на имя функции.

Точно все имена модуля/функций правильно написал??

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »