Forum.iFiction.Ru

program Project1;

{$APPTYPE CONSOLE}

uses
  Windows,  SysUtils;

var
 S: string;

{  Конвертировать текст в кодировку 866: CharToOem(StrFrom,StrTo: PChar):Bool;}
function WinToDos (S:string): PChar;
var R: PChar;
begin
  R:=StrNew(PChar(S));
  CharToOem(PChar(S),R);
  WinToDos:=R;
end;

function DosToWin (S:string): PChar;
var R: PChar;
begin
  R:=StrNew(PChar(S));
  OemToChar(PChar(S),R);
  DosToWin:=R;
end;

begin
  { TODO -oUser -cConsole Main : Insert code here }
  s:='Привет ВСЕМ !!!';
  s:=WinToDos(s);
  writeln(s);
  readln(s);
  writeln(s);
  s:=DosToWin(s);
  if s='кэролл' then writeln('гип-гип');
  readln;
end.