область видимости процедур

[Terran]

Сообщение от Uli9

А то что у меня все это написано в Unit2 и Unit3 он не видит что ли?У нас же связаны они все.Честно говоря не понимаю по вашим объяснениям.

У вас в модулях находятся самостоятельные процедуры и функции. Возьмём к примеру конкретную процедуру procedure Step(s,f,p:integer); из вашего unit2. Для этой процедуры нужно ввести числовые параметры раз Step(s,f,p:integer);. Т.к. модуль unit2 подключён к проекту, а процедура объявлена в модуле, то эту процедуру можно вызвать из Unit1. Что бы вызвать процедуру вы делайте так:

procedure TForm1.Button1Click(Sender: TObject); // Запуск расчета и вывод результатов
begin
   towncount := lbTowns.Items.Count;
  Step(s,f,p);
  ShowResults2;
end;

Но компилятор пишет что у вас не объявлнны переменные s,f,p. Значит их надо объявить и вписать в процедуру. Пример:

Var
s,f,p:Integer;
procedure TForm1.Button1Click(Sender: TObject); // Запуск расчета и вывод результатов
begin
s:=44;
f:=22;
p:=26;
   towncount := lbTowns.Items.Count;
  Step(s,f,p);
  ShowResults2;
end;

В этом примере мы объявляем переменные и присваиваем им значения, а потом вписываем их в процедуру. Так же можно просто вызвать процедуру просто вписав числовые значения. Пример:

procedure TForm1.Button1Click(Sender: TObject); // Запуск расчета и вывод результатов
begin
   towncount := lbTowns.Items.Count;
  Step(44,22,26);
  ShowResults2;
end;

[Uli9]

Terran, спасибо большое.Я вроде все сделала как Вы написали. но что-то произошло.И не запускается теперь.Ошибка какая-то.посмотрите пожалуйста. Спасибо

[Terran]

У вас в конце кода ошибки. Что бы не было ошибки вам надо сделать так:

procedure TForm1.Button2Click(Sender: TObject);
var
a, b,c, forbidden : integer;
path : TArray;
cpath : integer;
begin
towncount := lbTowns.Items.Count;
dijkstra(a, b, forbidden,path,cpath);
solve(a, b, c,path,cpath);
ShowResults3;
end;

Только у объявленных вами переменных не присвоены никакие значения. Лучше сделать их глобальными и потом можно будет легко присваивать значения.

[Uli9]

Terran,Спасибо!Извините,что достаю..уже плохо соображаю под вечер. В каком разделе глобальные переменные описывать?
СПАСИБО!!!!!

[Terran]

Terran,Спасибо!

Не за что.

Извините,что достаю..уже плохо соображаю под вечер.

Ничего), всегда рад помочь!

В каком разделе глобальные переменные описывать?

В начале unit'a после строчки:

var
  Form1: TForm1;
  //здесь все глобальные переменные. к примеру:
  a: Integer;
implementation

{$R *.dfm}

[Uli9]

Большое спасибо Вам!!!

P.S. Но проблемы теперь в алгоритмах пошли.Не выводится результат на мемо Memres2 в Unit2 и Unit3.Надо писать подобные процедуры (как в Unit1 ShowResult).

[Uli9]

Кто-нибудь может помочь? Пишите ICQ: 428803438