Преобразование в буквы (Delphi)

[pinch000]

снова реализую преобразование, но на этот раз из чисел в буквы (соответствующее порядковому номеру этой буквы в алфавите) 1=А; 2=Б; 3=В etc

вот код который делал преобразование букв в числа:

PHP код:

const
masAlf: array[1..33] of char = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя';
var
  s: string;
  i,l:integer;

for i:=1 to StringGrid1.ColCount-1 do
  begin
      s:=StringGrid1.Cells[i,0];
      for l := 1 to 33 do
      if s=masAlf[l] then
      begin
      StringGrid2.Cells[i,0]:=IntToStr(l);
      end;
  end; 


в данный момент наоборот нужно,из числа в буквы. Чтото в цикле запутался.

[Человек_Борща]

Вот как-то так. Смысл в том, чтобы преобразовать строку в число, и проверить, находится ли это число в нужном диапозоне...

var x:Integer;
..
for i:=1 to StringGrid1.ColCount-1 do 
  begin 
      //Буква в число, в случае глюка вернет -1
      x:=StrToIntDef(StringGrid1.Cells[i,0],-1); 
      if (x > 0) and (x < 34) then //Влазит ли это число диапозон 1..33
      begin
       s:=masAlf[x]; //Влазит..
       StringGrid1.Cells[i,0]:=s;
      end; 
  end;

[pinch000]

ага работает спасибо