Как использовать UNICODE функции?

[dolphin705]

Здравствуйте! У меня был проект на Delphi 7.
Возникли любопытство переписать его на XE3 допустим в юникоде.
раньше я писал примерно так

var
  a : array[0..30] of char;
begin
lstrcpyA(a,#0);
lstrcatA(a,'Блабла');
lstrcatA(a,#13#10);
lstrcatA(a,'Блабла');
дальше 
CreateFileA ....
WriteFile ...
CloseHandle();

открывал полученный файл там было :

Блабла
Блабла

но с юникод функциями

var
  a : array[0..30] of widechar;
begin
lstrcpyW(a,#0);
lstrcatW(a,'Блабла');
lstrcatW(a,#13#10);
lstrcatW(a,'Блабла');
дальше 
CreateFileW ....
WriteFile ...
CloseHandle();

так не выходит записать файл
я понимаю что #13#10 это анси символы перевода строки
но как сделать перевод строки в юникодном варианте?
получаются козябазя
подскажите как быть в таком случае?

[Человек_Борща]

почти правильно. После 2009 версии delphi, даже char юникоден.

var
a : array[0..30] of char;
begin
lstrcpyW(a,#0);
lstrcatW(a,'Блабла');
lstrcatW(a,#13#10);
lstrcatW(a,'Блабла');
дальше
CreateFileW ....
WriteFile ...
CloseHandle();

И да, большенсво низкоуровневых функций не надо вызывать явно(указывать A, W) т.к. они имеют свои нативные аналоги у самой среды и по умолчанию там юникод.
lstrcat

[dolphin705]

Проблема к сожалению так и не решена, видимо она в управляющих символах #13#10

[Человек_Борща]

они неитральны вообще-то.

[Slym]

#00#13#00#10
или chr(13)+chr(10)
в общем тоже двубайтовые

[Пепел Феникса]

а возможно дело тупо в блокноте, который не может верно открыть файл.
ибо BOM'а то нету.

кстати такая работа с юникодом доступна и в д7.

[dolphin705]

Решилось так

#0013#0010