Билдер для юникода

[Winexcel]

Сообственно код:

oldstring := '????????????????????????????????????????????????'; 
newstring := Edit1.Text;
s := oldstring; AssignFile(f, FileName);
Reset(f, 1); 
l:=0;
 go:=true; 
while (l<=(FileSize(f) - Length(oldstring) - 1)) and go do   begin   
 Seek(f, l);    
BlockRead(f, oldstring[1], Length(oldstring));   
 if oldstring = s then     begin     
 seek(f, l);     
 BlockWrite(f, newstring[1], Length(newstring));    
  go:=false;     
end;    
inc(l);
end;

На delphi 7 работает нормально, на xe5 юникод уже не пашет, точнее пашет, после двух билдов, как перевести этот код под юникод?

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

Почитайте о том, чем отличается однобойтовая ANSI-строка(Delphi 7) от ддвухбайтовой UNICODE-строки(Delphi 2009+) .

[Winexcel]

Сообщение от Человек_Борща

Почитайте о том, чем отличается однобойтовая ANSI-строка(Delphi 7) от ддвухбайтовой UNICODE-строки(Delphi 2009+) .

Я знаю чем отличается, символ занимает 2 байта вместо одного, я пробовал строки объявлять типа UnicodeString, нечего не вышло

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

Если бы знали различие, то не создавали бы темы
байт на диске он байт. А символ юникода это 2 байта. А вы всеравно пишите 1 байт.

[Winexcel]

Сообщение от Человек_Борща

Если бы знали различие, то не создавали бы темы
байт на диске он байт. А символ юникода это 2 байта. А вы всеравно пишите 1 байт.

NewString, OldString:UnicodeString;

Объявил как юникод, хотя и string является по умолчанию юникодом, не пойму почему не пишет

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

Потому что 2 байта а не 1.
Строку в 5 юникодных знаков, надо записывать в 10 байт файла.

[Winexcel]

Специально для тех у кого такая же проблема:
Открывать файл нужно с определением записи в 2а байта а не один.

[northener]

Сообщение от Winexcel

Специально для тех у кого такая же проблема:
Открывать файл нужно с определением записи в 2а байта а не один.

Да. Наверно для других таких же неучей ака чукчей-извращенцев этот совет пригодится.