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

Вниз

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

 
Oni   (2005-11-28 15:13) [0]

Бодрого времени суток. Будьте бобры, подскажите как в программе вызывать функции из модуля.

Что собственно дано: есть TP_7.0 c которым я не работал тыщу лет.
Есть написанный модуль с процедурами и функциями, есть программка на TP,в которой надо вызывать енти проц. и фун., в этом собственно и заключается проблема.

К примеру:

Содержание модуля с функциями:

unit ArrRout;

interface

implementation

uses crt;

function BubbleSorting(var a:array of integer) : boolean;
var i,j,k,n : integer;
begin
bubblesorting:=false;
n:=SizeOf(a);
for i:=2 to n do
 for j:=n downto i do
  begin
   k:=a[j-1];
   a[j-1]:=a[j];
   a[j]:=k
  end;
bubblesorting:=true;
end;
end.


Код программы:

program tst;
uses crt, ArrRout;
var a : array [1..10] of byte;
   i,j : integer;
begin
for i:=1 to SizeOf(Arr) do
 begin
  a[i]:=i;
  Write(a[i]); Write("_")
 end;

if BubbleSorting(a)  <- Здесь говорит что "Unknow indefiner"
 then  
  begin

  end
 else WriteLn("Error");
ReadKey;
end.


Всё находится в одной папке.


 
Плохиш ©   (2005-11-28 15:25) [1]


> interface
>
> implementation

Конечно Unknow indefiner".
В интерфейс секцию описание функции включать Пушкин должен?


 
Ega23 ©   (2005-11-28 15:25) [2]

Ты не объявил функцию в unit ArrRout; Она считается "внутренней" функцией юнита и извне видна не будет. если хочешь, чтобы она была видна "извне", следует сделать так:


unit ArrRout;

interface

function BubbleSorting(var a:array of integer) : boolean;

implementation

uses crt;

function BubbleSorting(var a:array of integer) : boolean;
var i,j,k,n : integer;
begin
bubblesorting:=false;
n:=SizeOf(a);
for i:=2 to n do
for j:=n downto i do
 begin
  k:=a[j-1];
  a[j-1]:=a[j];
  a[j]:=k
 end;
bubblesorting:=true;
end;
end.



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

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

Наверх




Память: 0.45 MB
Время: 0.042 c
14-1132583518
ArtemESC
2005-11-21 17:31
2005.12.11
Как програмно выключить или перезагрузить компьютер?


2-1132666329
RealFreeman
2005-11-22 16:32
2005.12.11
Неверный ввод в текстовый файл


4-1128594432
Woolen
2005-10-06 14:27
2005.12.11
Обработка сообщения в VCL и в отдельной процедуре


2-1132748523
tytus
2005-11-23 15:22
2005.12.11
Помогите примером


2-1133109175
Neosted
2005-11-27 19:32
2005.12.11
Текстовый файл





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский