Синтаксический анализатор

[Lifefine]

Всем привет! Пишу прогу на Delphi, мне необходимо перевести код С++ на Delphi. Некоторую часть перевел, но у меня выдает ошибку, хотя не все типы знаю. Вот пример кода на С++

                AnsiString buf;
		buf = Edit1->Text;
		int leng = buf.Length();

		int shabl [6][11] = {
		/* -   */{1,-1,3,-1,4,4,4,3,-2,-2,-2},
		/* ch  */{7,2,-1,2,5,-1,-1,-1,-2,-2,-2},
		/* sig */{-1,-1,3,-1,-1,4,4,3,-2,-2,-2},
		/* (   */{4,-1,-1,4,4,-1,-1,-1,-2,-2,-2},
		/* )   */{-1,-1,-1,-1,-1,6,6,-1,-2,-2,-2},
		/* nul */{-1,-1,-1,9,-1,10,11,-1,-2,-2,-2}
		};
		int ID,F=0;
		int state = 0;
		for (int i=1; i<=leng; i++){
		char var = buf[i];
	switch (var) {
			case '-':
				ID = 0;
				break;
			case '+':
				ID = 2;
				break;
			case '*':
				ID = 2;
				break;
			case '/':
				ID = 2;
				break;
			case '(':
				ID = 3;
				break;
			case ')':
				ID = 4;
				break;
		default:
			if (isalpha(var))
			 ID = 1;
		}
		state = shabl[ID][state];

Перевел на delphi

  
  var 
  buf:AnsiString;
  leng:Integer;
  begin
  buf:=edt1.Text;
  leng:=buf.Length();
  .....

Выдает ошибку

 
  leng:=buf.Length();

,
тип AnsiString - знаю не очень, будьте добры, переведите код на Delphi.Заранее спасибо большое!

[BOBAH13]

1. AnsiString >> String
2. buf.Length(); >> Length(buf);

[Roof]

const
  Shabl: array[0..5, 0..10] of Integer = (
  { -   }(1, -1, 3, -1, 4, 4, 4, 3, -2, -2, -2),
  { ch  }(7, 2, -1, 2, 5, -1, -1, -1, -2, -2, -2),
  { sig }(-1, -1, 3, -1, -1, 4, 4, 3, -2, -2, -2),
  { (   }(4, -1, -1, 4, 4, -1, -1, -1, -2, -2, -2),
  { )   }(-1, -1, -1, -1, -1, 6, 6, -1, -2, -2, -2),
  { nul }(-1, -1, -1, 9, -1, 10, 11, -1, -2, -2, -2));

var
  Buf: string;
  Leng, F, ID, State, i: Integer;
  Ch: char; //это наш var - зарезервированное слово в делфи,
  //потому используем другое имя переменной
begin
  buf := Edit1.Text;
  leng := Length(buf);
  F := 0;
  //State := 0;
  for i := 1 to leng  do
  begin
    Ch := Buf[i];
    State := 0; //сюда переместил, так как State может
    //принять отрицательное значение, а отрицательных индексов у нас нету
    case Ch of
      '-': ID := 0;
      '+': ID := 2;
      '*': ID := 2;
      '/': ID := 2;
      '(': ID := 3;
      ')': ID := 4;
    else
      if True{а тут твое условие вместо True} then
        ID := 0;
    end;
    State := Shabl[ID, State];
    ShowMessage(IntToStr(leng)+ '   ' + IntToStr(State)); //для проверки
  end;
end;

[Lifefine]

Спасибо! Очень помогли!!! Думал не ответите и начал сам разбираться. Код заработал!