приведение строки в другую раскладку

[iworm2009]

Есть задача реализовать функцию в программе в принципе основную какую делает пунтосвитчер
Раскладки всего 2 - русская и английская
например есть у меня строка 'ghbdtn' надо преобразовать в 'привет'
и наоборот строку 'руддщ' преобразовать в 'hello'

на ум пришло создать константу - двумерный [1..66, 0..1] массив и перебирать посимвольно строку.

может это можно сделать как то побайтово?

а может есть еще и более быстрый способ?

ps строка unicode

[Stilet]

перебирать посимвольно строку.

И

сделать как то побайтово

Это одно и то же. Даже в случа с юникодом это можно отождествить.

есть еще и более быстрый способ?

Ну может http://helpsite.narod.ru/asm/386/8.htm навеет на мысль о скорости...
Но я бы не парился. Неужели у тебя строки по гигабайту, что отказываешся от простого цикла?

[iworm2009]

побайтово имелось ввиду функции ord chr.
да, Вы правы строки конечно не более кБ

[s-andriano]

Я думаю, гораздо лучший во всех отношениях вариант - завести 2 массива констант длиной по 256 символов (для однобайтовых кодировок), и выбирать символ по индексу без поиска. Примерно так:
const en2ru : array[0..255]of char = (#0,#1,#2...
var MyChar, RecodedChar : char;
...
RecodedChar := en2ru[byte(MyChar)];

[iworm2009]

сделал вот так

{если меняет возвращает true}
function ChangeLang(var bufstr: string): boolean;
const
  rus: array [1..66] of char = ('й', 'ц', 'у', 'к', 'е', 'н', 'г', 'ш', 'щ',
                                'з', 'х', 'ъ', 'ф', 'ы', 'в', 'а', 'п', 'р',
                                'о', 'л', 'д', 'ж', 'э', 'я', 'ч', 'с', 'м',
                                'и', 'т', 'ь', 'б', 'ю', 'ё',
                                'Й', 'Ц', 'У', 'К', 'Е', 'Н', 'Г', 'Ш', 'Щ',
                                'З', 'Х', 'Ъ', 'Ф', 'Ы', 'В', 'А', 'П', 'Р',
                                'О', 'Л', 'Д', 'Ж', 'Э', 'Я', 'Ч', 'С', 'М',
                                'И', 'Т', 'Ь', 'Б', 'Ю', 'Ё');
  eng: array [1..66] of char = ('q', 'w', 'e', 'r', 't', 'y', 'u', 'i', 'o',
                                'p', '[', ']', 'a', 's', 'd', 'f', 'g', 'h',
                                'j', 'k', 'l', ';', '''', 'z', 'x', 'c', 'v',
                                'b', 'n', 'm', ',', '.', '`',
                                'Q', 'W', 'E', 'R', 'T', 'Y', 'U', 'I', 'O',
                                'P', '{', '}', 'A', 'S', 'D', 'F', 'G', 'H',
                                'J', 'K', 'L', ':', '"', 'Z', 'X', 'C', 'V',
                                'B', 'N', 'M', '<', '>', '~');
var
  i,
  l: integer;
  k: byte;
  isRus,
  isEng: boolean;
  tmp: Char;
begin
  isRus := false;
  isEng := false;
  result := false;
  l := length(bufstr);
  if not l > 0 then
    exit;
  for k := Low(rus) to High(rus) do
    if pos(rus[k], bufstr) <> 0 then
      isRus := true;
  for k := Low(eng) to High(eng) do
    if pos(eng[k], bufstr) <> 0 then
      isEng := true;
  if isRus and isEng then //в строке русский и английский
    exit
  else if isRus and not isEng then  //строка на русском
    for i := 1 to l do
    begin
      k := pos(bufstr[i], rus);
      if k > 0 then
        bufstr[i] := eng[k];
    end
  else if not isRus and isEng then  //строка на англ
    for i := 1 to l do
    begin
      k := pos(bufstr[i], eng);
      if k > 0 then
        bufstr[i] := rus[k];
    end;
  result := true;
end;

[Stilet]

сделал вот так

Логично. Только код медленный все равно.
pos() тут абсолютно как не пришей рукав пятому зайцу.

[iworm2009]

Да я и не спорю что он быстрый. Если бы знал как, не спрашивал совета. Мне на ум алгоритма не приходит, поэтому вот такая логика, а что c Pos() и с каким(и)?

[iworm2009]

Сообщение от s-andriano

Я думаю, гораздо лучший во всех отношениях вариант - завести 2 массива констант длиной по 256 символов (для однобайтовых кодировок), и выбирать символ по индексу без поиска. Примерно так:
const en2ru : array[0..255]of char = (#0,#1,#2...
var MyChar, RecodedChar : char;
...
RecodedChar := en2ru[byte(MyChar)];

Вас вообще не понял