Форум: "Начинающим";
Текущий архив: 2005.12.11;
Скачать: [xml.tar.bz2];
Вниз
Вызов функции из модуля, в 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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.032 c
