Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.10.16;
Скачать: CL | DM;

Вниз

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

 
markon ©   (2005-09-14 00:14) [0]

Здравствуйте!

У меня есть несколько модулей. В 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...

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


 
TUser ©   (2005-09-14 00:21) [1]

> В том модуле, где происходит вызов я написал в implementation uses unit1. При вызове функции выдаётся ошибка Undeclared identifier с указанием на имя функции.

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


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


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


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


 
Думкин ©   (2005-09-14 08:30) [3]

Можно прописать ораздел деклараций  т.п тут. В приемлемом приближении?


 
Думкин ©   (2005-09-14 08:31) [4]

А про Виалейшн - тут код давай. а то я знаю уже где ошибка - в 17-й строке.


 
begin...end ©   (2005-09-14 08:39) [5]

> markon ©   (14.09.05 00:14)

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

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


 
Tonich ©   (2005-09-14 09:02) [6]


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

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


 
PVOzerski ©   (2005-09-14 09:40) [7]

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


 
PVOzerski ©   (2005-09-14 09:47) [8]

1) Надеюсь, заголовки функций, реализованных в implementation-разделе 1-го модуля, повторены в его же interface-секции?

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


 
Плохиш ©   (2005-09-14 10:46) [9]

А читать книжки так ещё никто и не посоветовал.


 
markon ©   (2005-09-14 12:45) [10]

Насчёт объявлений в первом модуле - вот вырезки:

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-м. Но как и зачем всё-таки это нужно?
Может нужно функцию вызвать каким-то иным способом?


 
PVOzerski ©   (2005-09-14 13:32) [11]

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;

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


 
Digitman ©   (2005-09-14 13:45) [12]


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


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

ВСЛУХ думай !

..


 
markon ©   (2005-09-14 14:10) [13]

А, я понял... Я просто дятел непомнящий :). Написал свою функцию как метод класса формы... Это просто от невнимательности... Прошу прощения и всем спасибо. Теперь работает.



Страницы: 1 вся ветка

Текущий архив: 2005.10.16;
Скачать: CL | DM;

Наверх




Память: 0.5 MB
Время: 0.047 c
8-1116948602
Dadly
2005-05-24 19:30
2005.10.16
Перевод аналогового звука через вход карты в цифровой


2-1127066871
Quattro
2005-09-18 22:07
2005.10.16
Своя кнопка


5-1102767773
alo
2004-12-11 15:22
2005.10.16
как перенести свойство предка из published в public?


1-1127716429
npr2
2005-09-26 10:33
2005.10.16
MS Access


3-1125497727
Dmitrich
2005-08-31 18:15
2005.10.16
Почему БД (interBase 6.0) не работает с диска?