Преобразование в число (Delphi)

[pinch000]

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

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
const
masAlf: array[1..33] of char = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя';
var
s: string;
l,i: integer;
begin
  for i:=1 to StringGrid1.ColCount-1 do
  s:=StringGrid1.Cells[i,0];
 
  for l := 1 to 33 do
  if s=masAlf[l] then
  begin
 
  for i:=1 to 3 do
  StringGrid2.Cells[i,0]:=IntToStr(l);
 
end;
end;
end. 


почему только последняя третья буква введенная в StringGrid1 преобразуется в число и заполняет все три ячейки StringGrid2? думаю тут дело в "s" но никак не пойму как решить данную проблему.

[evg_m]

  for i:=1 to StringGrid1.ColCount-1 do 
  s:=StringGrid1.Cells[i,0];
// на этом цикл к вашему сведению заканчивается!

и дальше у вас есть только значение из третьей (последней) колонки.

если хотите большего пишите

begin
  s:=StringGrid1.Cells[i,0];
.. вот здесь еще бкдет использоваться значение из кахдой колонки
.........
end;

[BDA]

const 
alf1:string='АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';
alf2:string='абвгдеёжзийклмнопрстуфхцчшщъыьэюя';
var
i,j: integer;
begin
  for i:=0 to StringGrid1.ColCount-1 do
  begin
    j:=pos(stringgrid1.Cells[i,0],alf1)+pos(stringgrid1.Cells[i,0],alf2);
    if j<>0 then
      StringGrid1.Cells[i,1]:=inttostr(j);
  end;
end;

[pinch000]

evg_m - особо вас не понял не смог реализовать.
BDA- ага пашет

всем спасибо