Как использовать свою кодировку в программе?

[The SCS]

Есть таблица символов http://worms2d.info/WA_character_table , это своя кодировка игрового чата. Кириллицу в других кодировках не понимает.

Следовательно, как мне ее использовать в программе? Чтобы я ввёл кириллицу и в чат пришла именно кириллица а не кракозябры?

Прошу разъяснить подробнее, т.к. с кодировками никогда не сталкивался.

[GunSmoker]

const
  TranslationTableTo: array[AnsiChar] of AnsiChar = (#0, #1, ... #31, ' ', '!', '"', '#', '$', ...); // обратная таблица
  TranslationTableFrom: array[AnsiChar] of AnsiChar = (#0, #1, ... #31, ' ', '!', '"', '#', '$', ..., 'Б', 'Г', 'Д', ...); // короче, твоя таблица

  function TranslateTo(const ASource: AnsiString): AnsiString;
  var
    X: Integer;
  begin
    Result := ASource;
    for X := 1 to Length(Result) do
      Result[X] := TranslationTableTo[Result[X]];
  end;

  function TranslateFrom(const ASource: AnsiString): AnsiString;
  var
    X: Integer;
  begin
    Result := ASource;
    for X := 1 to Length(Result) do
      Result[X] := TranslationTableFrom[Result[X]];
  end;

var
  A: AnsiString;
begin
  A := 'Превед, медвед';

  A := TranslateTo(A);
  // A = дракозябры в твоей кодировке

  A := TranslateFrom(A);
  // A = 'Превед, медвед';
end;

Первая таблица делается так: берёшь 1251 и в каждую позицию вписываешь номер, который этот символ имеет в твоей таблице.

Например, с конца:

... { ю } #$B3, { я } #$B4);

Вторая таблица делается наоборот: берёшь твою и вписываешь номера для 1251:
Например, с конца:

... { þ } '?' { - нет такого символа}, { ÿ } #$A2);

[The SCS]

Спасибо, попробую.

[The SCS]

Что-то не понял как составить таблицу..

[The SCS]

Так, составил своим методом.

const
  ruschars: Array[1..117] of Char = ('A','B','C','D','E','F','G','H','I','J','K','L','M','N','O',
                                'P','Q','R','S','T','U','V','W','X','Y','Z',
								                'a','b','c','d','e','f','g','h','i','j','k','l','m','n','o',
                                'p','q','r','s','t','u','v','w','x','y','z',
                                'É','é',' ','À', 'Á', 'Â', 'Ã', 'Ä', 'Å', 'Æ', 'Ç',
                                'Ê','È', 'Ë', 'Ì', 'Í', 'Î', 'Ï', 'Ð',
                                'Ñ', 'Ò', 'Ó', 'Ô', 'Õ', 'Ö', '×', 'Ø',
                                'Ù', 'Ü', 'Ú', 'Ý', 'Þ', 'ß','à', 'á',
                                'â', 'ã', 'ä', 'å', 'æ', 'ç','ê','è','ë',
                                'ì', 'í', 'î', 'ï', 'ð','ñ', 'ò','ó',
                                'ô', 'õ', 'ö', '÷', 'ø','ù', 'ü','ú',
                                 'ý', 'þ', 'ÿ','û','Û');
  wachars: Array[1..117] of Char = ({UPPER ENG -->}#$41,#$42,#$43,#$44,#$45,#$46,#$47,#$48,#$49,#$4A,#$4B,#$4C,#$4D,#$4E,#$4F,
                                #$50,#$51,#$52,#$53,#$54,#$55,#$56,#$57,#$58,#$59,#$5A,
                {LOWER ENG -->>}#$61,#$62,#$63,#$64,#$65,#$66,#$67,#$68,#$69,#$6A,#$6B,#$6C,#$6D,#$6E,#$6F,
                                #$70,#$71,#$72,#$73,#$74,#$75,#$76,#$77,#$78,#$79,#$7A,
                {UPPER RUS -->>}#$86,#$9E,#$20,#$41,#$80,#$42,#$81,#$82,#$45,#$83,#$84,#$87,#$85,#$88,#$4D,#$48,
                                #$4F,#$89,#$50,#$43,#$54,#$8A,#$8B,#$58,#$8C,#$8D,#$8E,#$8F,#$92,
                                #$90,#$93,#$94,#$96,{LOWER RUS -->>}#$61,#$97,#$98,#$99,#$9A,#$65,
                                #$9B,#$9C,#$A2,#$9D,#$A5,#$A6,#$A7,#$6F,#$A8,#$70,#$63,#$A9,#$79,
                                #$AA,#$78,#$AB,#$AC,#$AD,#$AE,#$B1,#$AF,#$B2,#$B3,#$B4,#$B0,#$91);

//**************

function Encode(input:string) :string;
var
lead: String;
i,j: Integer;
begin
lead:='';
for i:= 1 to 117 do for j:= 1 to 117 do begin
        if input[i] = ruschars[j] then begin
            lead := lead + wachars[j];

        end;
end;
result:=lead;
end;

До того как приписал латинницу, все было нормально.

Теперь кодирует и русс. и англ, но приписывает непойми что в конец переменной result: test TEST ©ec© TECTpp*PЄpda bo mi sie nie chce potem sluchac narzekaniaЄЄPopupMenufrmdk

туда попадают случайные символы, куски фраз из чата, ники юзеров. Что не так? Задолбался искать.

[The SCS]

Правда из делфей кириллица криво копируется..

[Пепел Феникса]

нужно переходить на русскую кодировку при копировании.

ну а по делу думаю проблема в том что не учтен терминальный символ(обычнo строки кончаються на #0) или длина строки(в зависимости от формата хранения)

[The SCS]

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

[The SCS]

теперь другой прикол. Я написал функцию Encoding наоборот, чтобы декодировала:

function Decode(input:string ) :string;
var
lead: String;
i,j: Integer;
begin
lead:='';
for i:= 0 to 158 do for j:= 0 to 158 do begin
        if input[i] = wachars[j] then begin
            lead := lead + ruschars[j];

        end;
end;
result:={copy(lead,0,Length(input))}lead;
end;

Напомню, что игровая кодировка использует англ. А вместо русской, аналогично с "у", "х"...
Так вот при перекодировке эти буквы выводятся дважды: теесст, гeепaа кeеpрнeеcс. В чем проблема?

[The SCS]

Коментарий остался от Encode.