Китайский в Delphi

[Yiguoliang]

Код в предыдущем посте немного неправильный, вот правильный:

program Project_Doc;

{$APPTYPE CONSOLE}

var
    f, f1: textfile;
    s, s1, s2: widestring;
begin
  assign(f, '1.txt');
  assign(f1, '2.txt');
  reset(f);
  rewrite(f1);
  s1 := #9 + '[m1]';
  s2 := '[/m]';
  while not eof(f) do
  begin
    readln(f, s);
    if copy(s, 1, 4) = '	\[[' then
    begin
      delete(s,1,1);
      s := s1 + s + s2;
      writeln(f1, s);
      writeln(s);
    end
    else
    begin
      writeln(f1, s);
      writeln(s);
    end;
  end;
  close(f);
  close(f1);
end.

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

Это файл в UTF-8 с BOM.

Спасибо конечно, но погода совершенно не изменилась, ну разве только чуть-чуть, с кодировками никогда не работал, подскажите поподробнее пожалуйста.