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

[Uli9]

Помогите исправить ошибки пожалуйста. Не видит процедур, описанных в Unit2 и Unit3.Вроде все подключено. Спасибо

[Showy]

В юнитах 2 и 3 процедуры надо объявить перед implementation

[Uli9]

Спасибо!!!!!!!

[Uli9]

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

Он не знает параметры (s,f,p:integer).Что делать?почему так?

[Terran]

Он не знает параметры (s,f,p:integer).почему так?

Вы не объявили эти переменные.

Что делать?

Объявить их.

[Uli9]

Я понимаю. А где и как их объявить?Плиз!!!!

[Terran]

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

Я понимаю. А где и как их объявить?Плиз!!!!

Попробуйте сейчас ввести параметры. Я немного подправил ваш код.
Вот: Вложение 6863

Только вводите просто параметры. Не указывая их тип как вы пытаетесь сделать здесь

Step(s,f,p:integer);

а то получится ошибка.

[Uli9]

Не знаю.Вот я ввела.

Step(s,f,p);
dijkstra(a, b, forbidden,cpath);
solve(a, b, c,cpath);

и все равно ошибки.Не знает параметров и все тут.Что же делать то(

[Terran]

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

Не знаю.Вот я ввела.

Step(s,f,p);
dijkstra(a, b, forbidden,cpath);
solve(a, b, c,cpath);

и все равно ошибки.Не знает параметров и все тут.Что же делать то(

Вам надо брать параметры для ввода которые объявлены. Тоесть вы ставите значение "s" потом "b" и т.д. но эти переменные у вас не объявлены и им не присвоено значение. Отсюда компилятор и ругается. Переменные объявляются так:

Var
a,b: integer;
...

и т.д., а потом им присваивайте значение и в процедуру. Эти параметры пойдут в процедуру procedure Step(s,f,p:integer);

[Uli9]

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