[superWinchester]

Я очень начинающий програмист !!Здали курсовую "Машина тьюринга на делфи"
В общем смотрите !! Надо реализовать алгаритм машины тьюринга

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

procedure TForm1.BitBtn3Click(Sender: TObject); var i,nom:integer; st:string; begin  Q:=0;  nom:=0;    repeat  st:=StringGrid2.Cells[9,0];   //  в  ст присваиваем   то что  находится в 9 столбце   ленты  for i:=1 to StringGrid1.RowCount-1 do // перебираем Все строки   if st=StringGrid1.Cells[0,i] then // если  ст= равен какой либо строке  nom:=i;      //тогда  в ном присваиваем номер строки    st:=StringGrid1.Cells[Q+1,nom]; // теперь  в ст хранится ечейка В кторой есть совпадание в ленте    StringGrid2.Cells[9,0]:=st[1]; // в активную ячейку ленты присваиваем   1-ый символ ст          for i:=1 to StringGrid2.colCount-1 do// пробежались по все столбцам  case st[2] of   '<': StringGrid2.cells[i,0]:=StringGrid2.cells[i-1,0];   '>': StringGrid2.cells[i-1,0]:=StringGrid2.cells[i,0];   '.': q:=0;  end;    Q:=StrToInt(copy(st,3,length(st)));  until q=0;           end;

Вылазиет ошибка на английском длиная вообщем , посмотрите код пожалуйста или свой предложите=)))

[superWinchester]

Вот ошибка

[icWasya]

Пользуемся отладчиком.
Сделайте брекпоинты в 15, 17 и 23 строке.
Смотрим, чему равно st в этих местах.

[M.A.D.M.A.N.]

Объект какой-то мертв.