Unicode в DOS (OEM)

[FaTaL]

Как известно в Delphi 2009 есть поддержка Юникода и переменны типа String сейчас в Юникоде.
В Delphi 7 такой код компилиться с успехом:

procedure TForm1.FormCreate(Sender: TObject);
var
  N: PChar;
begin
  memo1.Lines.LoadFromFile('c:\file.txt');
  N := Memo1.Lines.GetText;
  ANSIToOem(N, N);
  Memo1.Lines.Text := StrPas(N);
end;

Но в дельфине 2009 никак не хочет. Так вот вопрос: Имеется TStringList, как его перевести в OEM кодировку?

[ArtInt]

Попробуйте так

procedure TForm1.FormCreate(Sender: TObject);
var
N: string;
begin
  memo1.Lines.LoadFromFile('c:\file.txt');
  N := Memo1.Lines.GetText;
  ANSIToOem(Pchar(N),Pchar(N));
  Memo1.Lines.Text := N;

end;

То есть через приведение типов: ANSIToOem(Pchar(N),Pchar(N));, так как там тип данных PAnsiChar
Если StringList использовать то можно так

procedure TForm1.FormCreate(Sender: TObject);
var
N: string;
str: TStringList;
begin
  str:=TStringList.Create;
  memo1.Lines.LoadFromFile('c:\file.txt');
//  N := Memo1.Lines.GetText;
  str.Text:=Memo1.text;
  N:=str.Text;
//  ANSIToOem(Pchar(N),Pchar(N));
  ANSIToOem(Pchar(N),Pchar(N));
  Memo1.Text:=N;

end;

И так можно:

procedure TForm1.FormCreate(Sender: TObject);
var
N: PAnsiChar;
begin
  memo1.Lines.LoadFromFile('c:\file.txt');
  N := Memo1.Lines.GetText;
  ANSIToOem(N,N);
  Memo1.Text:=N;
end;

[FaTaL]

Ни один из способов не работает в Юникоде в Дельфине 2009
Выдает ошибку
[DCC Error] Unit1.pas(32): E2010 Incompatible types: 'Char' and 'AnsiChar'

[ArtInt]

К сожалению, пока проверял на Дельфи 2006. Странно, почему выводит несовпадение типов для последнего мной приведенного примера, ведь там тип Pchar заменен на PAnsiChar, который удовлетворяет параметрам.
Кстати может используете технологию NET?
И даже данный пример не проходит???

procedure TForm1.FormCreate(Sender: TObject);
var
    N: string;
begin
  memo1.Lines.LoadFromFile('c:\file.txt');
  N := Memo1.Lines.GetText;
  ANSIToOem(PAnsiChar(N),PAnsiChar(N));
  Memo1.Lines.Text := N;
end;

[Evgeniy26]

Если хотите разобраться с Unicode в Delphi 2009: http://torrents.ru/forum/viewtopic.php?t=1367596

[FaTaL]

На Делфи 7 тоже всё идет, а вот на 2009 никак. Интересно если скопмилить DLL в семерке и потом вызвать её процедуру, которая обработает файл и сохранит его, из проги скомпиленной в 2009, нормально всё будет или нет?
Пишу под Win32.

З.Ы. Для .NET пишу на Delphi Prism.