[dnwest]

Пытаюсь сохранять TStringList в текстовый файл ASCII с корректным отображением кириллицы.

Код:

procedure TForm2.Button1Click(Sender: TObject);
function AnsiToOem(AStr : String) : String;
  begin
    SetLength(Result, Length(AStr));
    //CharToOemBuff(PChar(AStr), PAnsiChar(Result), Length(AStr));
    CharToOem(PChar(AStr), PAnsiChar(Result));
  end;
var
  str: TStringList;
begin
  str := TStringList.Create;
  str.Add(AnsiToOem('ваорвыалиаовтаол!!! dfdsgfdsf!!!'));
  str.SaveToFile('test.txt', TEncoding.ASCII);
  str.Free;
end;

Но на выходе сплошная печаль: ????????????????

Delphi XE5