Русскоязычный txt файл

[RUSlan48]

Помогите пожалуйста, как с помощью консольного приложения записать в текстовый файл строку, в которой содержатся русские буквы?

[Alt]

Напиши функцию, которая переводит строку из ASCII кодировки в ANSI

[Gorychev]

function ConvertAnsiToOem(const S: string): string;
{ ConvertAnsiToOem translates a string into the OEM-defined character set }
{$IFNDEF WIN32}
var
  Source, Dest: array[0..255] of Char;
{$ENDIF}
begin
{$IFDEF WIN32}
  SetLength(Result, Length(S));
  if Length(Result) > 0 then
    AnsiToOem(PChar(S), PChar(Result));
{$ELSE}
  if Length(Result) > 0 then
  begin
    AnsiToOem(StrPCopy(Source, S), Dest);
    Result := StrPas(Dest);
  end;
{$ENDIF}
end; 
..........
  str :=  ConvertAnsiToOem(str);
 //  и на запись в файл
.........

[Serge_Bliznykov]

Русские буквы бывают во множестве самых разных кодировок. Начиная с OEM (она же DOS, она же 866 кодовая страница), и заканчивая ANSI (Win-1251) или KOI8-R...

консольное приложение под какую OS???

вот, рискну предположить, что речь идёт о Win32 приложении написанном на Delphi, тогда используйте

function StrOemToAnsi(const S: AnsiString): AnsiString;
begin
  SetLength(Result, Length(S));
  OemToAnsiBuff(@S[1], @Result[1], Length(S));
end;

function StrAnsiToOem(const S: AnsiString): AnsiString;
begin
  SetLength(Result, Length(S));
  AnsiToOemBuff(@S[1], @Result[1], Length(S));
end;

[RUSlan48]

Serge_Bliznykov, огромное спасибо!!!
И ваше предположение насчёт того, что речь идёт о win32 абсолютно правильное.

А можно поинтересоваться, в целях повышения образованности, как работает функция OemToAnsiBuff и что значат входящие в неё параметры?

[Stilet]

Я что-то не понял, а разве штатный Write не умеет русские буквы писать в файл?

[RUSlan48]

умеет, но только если их напрямую из программы задавать...

А если, например, строка вводится из консоли, то она в файл записывается кроказябками