помогите написать програмку.

[Kashp]

В общем такое дело: на форме кнопка, Edit1 и Edit2. Подскажите пожалуйста код, чтобы введя в Edit1, например "дорога", в Edit2 появлялось "doroga", и так с любым введенным словом.

[Квэнди]

1. Создаете 2 массива. В 1-м русские буквы, в 2-м латинские буквы в соответствии с русскими... (по порядку)
и идете по буквам подставляя соответствующие значения из 2-го массива. Ну либо не массивами, вариантов куча.

[_SERGEYX_]

function TranslitRus2Lat(const Str: string): string;
const
  RArrayL = 'абвгдеёжзийклмнопрстуфхцчшщьыъэюя';
  RArrayU = 'АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЬЫЪЭЮЯ';
  colChar = 33;
  arr: array[1..2, 1..ColChar] of string =
  (('a', 'b', 'v', 'g', 'd', 'e', 'yo', 'zh', 'z', 'i', 'y',
    'k', 'l', 'm', 'n', 'o', 'p', 'r', 's', 't', 'u', 'f',
    'kh', 'ts', 'ch', 'sh', 'shch', '''', 'y', '''', 'e', 'yu', 'ya'),
    ('A', 'B', 'V', 'G', 'D', 'E', 'Yo', 'Zh', 'Z', 'I', 'Y',
    'K', 'L', 'M', 'N', 'O', 'P', 'R', 'S', 'T', 'U', 'F',
    'Kh', 'Ts', 'Ch', 'Sh', 'Shch', '''', 'Y', '''', 'E', 'Yu', 'Ya'));
var
  i: Integer;
  LenS: Integer;
  p: integer;
  d: byte;
begin
  result := '';
  LenS := length(str);
  for i := 1 to lenS do
  begin
    d := 1;
    p := pos(str[i], RArrayL);
    if p = 0 then
    begin
      p := pos(str[i], RArrayU);
      d := 2
    end;
    if p <> 0 then
      result := result + arr[d, p]
    else
      result := result + str[i]; 
  end;
end;

edit2.text:=TranslitRus2Lat(edit1.t ext);

[Kashp]

Спасибо

[Kashp]

А вот теперь надо сделать наоборот (yasniy-ясный). Как видно из кода _SERGEYX_

 RArrayL = 'абвгдеёжзийклмнопрстуфхцчшщьыъэюя';
  RArrayU = 'АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЬЫЪЭЮЯ';

Здесь все ясно, но как вписать в 'RArrayL' и 'RArrayU' английский буквы, соответствующие русским буквам (например- YA-Я ), ведь 'YA' - это уже 2 символа.

[Alex21]

Сообщение от Kashp

А вот теперь надо сделать наоборот (yasniy-ясный)

Проще уж сделать дословно, с акцентом: ясний (вместо ясный).
Вообще, англицкий, помоему, совсем не подходит для перевода на русский. Есть например буквы, при разном написании дающие разные звуки. Например буква С: cat и city.

[Квэнди]

Kashp зачем просто стринг ?
два стринг массива и все

[Kashp]

Сообщение от Alex21

Проще уж сделать дословно, с акцентом: ясний (вместо ясный).
Вообще, англицкий, помоему, совсем не подходит для перевода на русский. Есть например буквы, при разном написании дающие разные звуки. Например буква С: cat и city.

Наверное я непонятно изъяснился. Нужно сделать так: A-A, B-Б, V-В, G-Г, D-Д ... ZH-Ж, SH-Ш и т.д.

Квэнди, ты не мог бы на примере мне разъяснить, как это сделать?

[S.W.A.T.]

Сообщение от Kashp

Наверное я непонятно изъяснился. Нужно сделать так: A-A, B-Б, V-В, G-Г, D-Д ... ZH-Ж, SH-Ш и т.д.

Квэнди, ты не мог бы на примере мне разъяснить, как это сделать?

Тут тоже все просто.. Считываешь по 2 символа, проверяешь сначала нет ли сочетания из этих символов, если нет, то заменяешь первый символ на его русский эквивалент, если же такое сочетание есть, то соответственно заменяешь одной буквой русского алфавита.

[Квэнди]

stringreplace тебе в помощь как вариант, ибо двойных вариантов немного