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

[Stilet]

fileXml:File of byte;
b:Byte;
ws:WideString;

Замени на

  fileXml:File of char;
  b:Byte;
  ws:AnsiString;

А вообще от file of избавь себя в пользу TStringList или если XML не построчный в пользу от TFileStream

[Alexandr17]

Кстати я сказал что Delphi 2009
Собственно пробувал через TFileStream

ws:='';
    Stream := TFileStream.Create(FileName, fmOpenRead);
    try
      Size := Stream.Size;
      SetLength(buffer, Size);
      Stream.Read(Buffer[1], Size);
      ws:=WideString(Buffer);
    finally
      Stream.Free;
    end;

В итоге загружаются толи китайские толи японские символы вместо текста

[min@y™]

проанализировал. с кодировкой порядок

[Alexandr17]

Я итак его сам проанализировал. Вообще в delphi 7 чтение нормально это в 2009 проблемы возникаю.т Да и может кто пример нормальный даст по TFileStream так как для чтения и парсинга asm только tfilestream и сгодится.

[min@y™]

так как для чтения и парсинга asm только tfilestream и сгодится.

это почему же?

[Stilet]

ws:=WideString(Buffer);

Мдя... Ладно, не буду отвлекать.

[StriderX]

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

Я итак его сам проанализировал. Вообще в delphi 7 чтение нормально это в 2009 проблемы возникаю.т Да и может кто пример нормальный даст по TFileStream так как для чтения и парсинга asm только tfilestream и сгодится.

Надо подружиться с энкодерами. Байты в символы теперь по очень сложным алгоритмам могут превращаться. Энкодер как концепция теперь есть всегда, поэтому надо себе задавать вопрос - если я ничего не указываю, то кто мне его дал и какой именно =-)
Если надо просто перегнать файл в строку, то можно так:

        AutoDetectEncoding(FileName);
        FS := TStringStream.Create('', Encoding);
        FS.LoadFromFile(FileName);
        str := FS.DataString;
        FS.Free();

Реализация AutoDetectEncoding произвольная (можно прочитать инварианту-заголовок, можно сунуть дифолт и т.п.).

[Serge_Bliznykov]

Alexandr17, если у Вас Delphi поддерживает TEncoding,
то почему этим не воспользоваться?!

ну, например, примерно так:

var TS : TStringList;
begin
   TS := TStringList.Create;
   TS.LoadFromFile(FileName, TEncoding.GetEncoding(1251));
       //.... все строчки файла в  TS.Strings[]>
   TS.Free;
end;

[Alexandr17]

Использования TStringList для копирования 10 строчек. Не думаю что это эфективно. Хотя видно другого способа нету. Вообще хотелось бы читать через TFileStream

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

это почему же?

Для файла асемблера с расширением ASM
Потомучто когда я использовал побайтное чтение через read на delphi 7 у меня именно на этом файле не коректно работал copy и delete.
Дело в том что именно в этом файле вместо #13#10 на некоторых строках было #13#10#13
Возможно баг при чтении. Вот и подумываю по чтению через tfilestream.
Помогите делать чтение через tfilestream. Всеже он больше подходит для скриптинга и парсинга.

[Аватар]

вместо #13#10 на некоторых строках было #13#10#13

не было

Использования TStringList для копирования 10 строчек. Не думаю что это эфективно.

Эффективней чем с tfilestream это уж точно. Не нравится построчная обработка (интересно почему?) работай со свойством Text, в котором все, в том числе и любимые управляющие символы

Всеже он больше подходит для скриптинга и парсинга.

хи-хи