Проблемы со чтением delphi 2009

[Alexandr17]

Вот строка
<PathDuneHack>H:\проэкты\другие проэкты\DuneHack_Rebuild_r79</PathDuneHack>
Вот код чтения

function TfrmRCED.GetTextALAULNC(Text: String; var LengthText: Integer;
  const AULNC: tAULNC): string;
begin
  LengthText:=Length(Text);
  case AULNC of
    acNone:Result:=Text;
    acUpper:Result:=AnsiUpperCase(Text);
    acLower:Result:=AnsiLowerCase(Text);
  end;
end;

procedure TfrmRCED.LoadReadXML(FileName: String);
var
  fileXml:File of byte;
  b:Byte;
  ws:WideString;
  i1, l1, i2, l2:Integer;
begin
    AssignFile(fileXml, FileName);
    ReSet(fileXml);
    ws:='';
    while not Eof(fileXml) do begin
      Read(fileXml, b);
      ws:=ws+WideString(char(b));
    end;
...
    i1:=Pos(GetTextALAULNC('<PathDuneHack>', l1, acLower), AnsiLowerCase(ws));
    i2:=Pos(GetTextALAULNC('</PathDuneHack>', l2, acLower), AnsiLowerCase(ws));
    PathDuneHack:=Copy(ws, i1+l1, i2-(i1+l1));
    Edit1.Text:=PathDuneHack;
    Delete(ws, i1, (i2+l2)-i1);
...
    CloseFile(fileXml);
end;

А получаю вот что

H:\ïðîýêòû\äðóãèå ïðîýêòû\DuneHack_Rebuild_r79

[Stilet]

Юникодный XML?
А почему не хочешь прикрутить один из парсеров? К примеру MSXML.

[planetoxod]

В блокноте как?

[Alexandr17]

В блокноте нормально. Темболее кодировка не юникодная а ансишная. 1251

[Streletz]

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

В блокноте нормально. Темболее кодировка не юникодная а ансишная. 1251

Начиная с версии 2009 char и string по умолчанию в юникоде.

[Alexandr17]

Я и в других кодировках пробывал читать. Тоже самое. Вместо руского какието иероглифы.

[Alex11223]

В каких именно других?
А зачем вы используете древние паскалевские функции для чтения? Возьмите TFileStream.

[Alexandr17]

Мнебы хороший сайт по нему. Желательно на русском. Чтобы полная информация о записи и чтении.

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

Юникодный XML?
А почему не хочешь прикрутить один из парсеров? К примеру MSXML.

Это не xml. Точнее мой собственный xml. И свой метод парсинга.

[min@y™]

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

Я и в других кодировках пробывал читать. Тоже самое. Вместо руского какието иероглифы.

дай файл

[Alexandr17]

Сообщение от min@y™

дай файл

Вот держи.