Перевод

[AdDa]

Delphi
Формучане, помогуите пожалуйста
1 2 3 4 5 6 7 8 9
а б в г д е ё ж з
и й к л м н о п р
с т у ф х ц ч ш щ
ъ ы ь э ю я
По схеме приведённой выше надо перевести буквы в цифры
То есть, дано у нас в Edit1.text:='Гоголь Николай Васильевич';
и надо каждой буке присвоить число из таблицы...

[Sparkman]

function replace_letter(text:string):string;
var a:array[1..9] of set of char;
    i,j:integer;
    r:string;
    b:boolean;
begin
     a[1] := ['а','и','с','ъ'];
     a[2] := ['б','й','т','ы'];
     a[3] := ['в','к','у','ь'];
     a[4] := ['г','л','ф','э'];
     a[5] := ['д','м','х','ю'];
     a[6] := ['е','н','ц','я'];
     a[7] := ['ё','о','ч'];
     a[8] := ['ж','п','ш'];
     a[9] := ['з','р','щ'];
     r:='';
     for i:=1 to length(text) do
     begin
          b:=true;
          for j:=1 to 9 do
          if text[i] in a[j] then
          begin
             r:=r+IntToStr(j);
             b:=false;
             break;
          end;
          if b then r:=r+text[i];
     end;
     result := r;
end;