[kaizer131]

Добрый день!
Возникла проблема с кодировкой файла, записанного с помошью консольного приложения.
Есть массив записей, который заполняется в консольном приложении и записывается в файл .txt соответственно после закрытия он открывается для чтения, и в консольное приложение выводится содержимое файла, проблема в том, что кирилица в файле отображается некорректно, что происходит из за несовпадения кодировок и соответственно в приложении тоже выдаёт некоректные символы.
как решить эту проблему ?

[lmikle]

AnsiToOEM и OEMToAnsi спасут отца русской демократии?

[kaizer131]

А можно пример использования этих функций или обьяснить последовательность считывания/записи с их помощью. А то отец русской демократии пока с малым успехом бьётся над этой проблемой


делаю так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76

program Project1;   {$APPTYPE CONSOLE}   uses   SysUtils,windows;         type Igrushka=record      Name:string[10];      Cena:byte;      Ogran:string[10];        end;   var  F:file of Igrushka;      assort:array [1..10] of Igrushka;      i:integer;      T_N,x:string;      g:text;       function rus(const s: string): string; begin result:=s; ansitooem(pchar(s), pchar(result)); end;      function rus_2(const s: string): string; begin result:=s; oemtoansi(pchar(s), pchar(result)); end;       begin     assign(f,'c:\assort777.txt'); rewrite(f); for i:=1 to 1 do begin write(rus('Имя игрушки :')); readln(rus_2(assort[i].Name));   write(rus('Цена игрушки :')); readln(assort[i].Cena);   write(rus('Возрастные ограничения на использование игрушки :')); readln(assort[i].Ogran);     write(f,assort[i]);   writeln('----------------'); end;          // writeln('Привет, ФриМен!');         try     { TODO -oUser -cConsole Main : Insert code here }   except     on E:Exception do       Writeln(E.Classname, ': ', E.Message);   end;       readln; end.

в строке

Код:

1	readln(rus_2(assort[i].Name));

возникает ошибка
[DCC Error] Project1.dpr(57): E2064 Left side cannot be assigned to
Что делаю не так ?

[roamer]

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

в строке

Код:

readln ожидает переменную, а rus_2 - функция

Точнее было бы что-то вроде этого :

Код:

1 2 3 4 5 6

Var   Sx : string; ... ... readln(Sx); assort[i].Name:=rus_2(Sx);

[kaizer131]

Спасибо за помощь ! теперь всё нормально