Алгоритм Дейкстры

[tarnis]

Сразу предупреждаю: алгоритм у меня написан и прекрасно работает в консоли. Мне же нужно его маломальски в Delphi оформить, а в Delphi я нуб) Что-то написал, но компилятор ругается.
Посмотрите, пожалуйста, думаю, для знающих людей там всё прозрачно.
proj2.rar

[vedro-compota]

запускается.....начальную конечную указываю - работает.....не пойму в чём проблема ))

[tarnis]

проблема здесь:

PHP код:

Procedure Initial_Conditions; //Na4alny uslovia
    Var  f: text;
         i, j: integer;
    Begin
      Assign(f, 'ggg.txt');
      Reset(f);
      For i:=1 to n do
        Begin
          For j:=1 to n do
          Read(f, Graf[i,j])
        End;
       //Vvod zakon4en

        start:=strtoint(Edit1.text);//А ИМЕННО ЗДЕСЬ!
      For i:=1 to n do
        Begin
          done[i]:=False;  //vse vershiny ne prosmotreny
          Ves_verhin[i]:=Graf[Start, i]; //Smotrim stroku #start
          N_pred_versh[i]:=Start
        End;
      N_pred_versh[Start]:=0;
      done[Start]:=True
    End; 


А собирается потому, что я эту строку убрал, но работает то неправильно!
Эта строка должна считывать из Edit1. А так - первый эдит не задействован, т.е. результаты выдаются неверные.

[Greek9000]

Проще всего написать
start:=strtoint(Form1.Edit1.text);
в указанной Вами строчке и всё заработает.

[Utkin]

Проверяй, если Edit1.Text='', то ставь какую-нибудь существующую точку. Edit1.Text можно считать как обычную строку.