Помогите с TFilestream

← →
Arcticcat (2009-06-12 08:59) [0]

файл f.txt заполнен цифрами, а в сообщении выводится что-то по китайски)
вот код:
procedure TForm1.Button1Click(Sender: TObject);
var
SourceFile: TFileStream;
aBuff: array[0..128] of char;
begin
SourceFile := TFileStream.Create("F:\f.txt", fmOpenRead);
SourceFile.Seek(0, soFromBeginning);
SourceFile.Read(aBuff, SourceFile.Size);
ShowMessage(String(aBuff));
end;
Заранее спасибо за ответы)

← →
palva © (2009-06-12 09:38) [1]

А может там не цифры? Может файл сохранен из блокнота в UTF8 ? Можете выложить сюда 16-ричный код нескольких первых байтов файла?

← →
Arcticcat (2009-06-12 09:43) [2]

мм, а как это сделать?)

← →
Arcticcat (2009-06-12 09:44) [3]

а он сохранён в ansi

← →
palva © (2009-06-12 09:53) [4]

> а он сохранён в ansi

Тогда не знаю, других идей нет.

← →
Arcticcat (2009-06-12 09:54) [5]

как вообще определить к какой кодировке относится символ?

> aBuff: array[0..128] of char;
почитай что это за тип в твоей версии дельфей. (очевидно 2009-й)

← →
Arcticcat (2009-06-12 10:53) [7]

да что то я совсем не посмотрел его особенности) спасибо sniknik)
я использовал AnsiСhar вместо Сhar(который на самом деле являлся WideChar)
но я наткнулся ещё на одну сложность, как можно отличить строку в кодировке ANSI от Unicode?

Ты благодари бога, что дело не кончилось AV

Помогите с TFilestream Найти похожие ветки