Скачать: CL | DM;

Помогите с 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]

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

---

← →
sniknik ©   (2009-06-12 10:18) [6]

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

---

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

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

---

← →
Anatoly Podgoretsky ©   (2009-06-12 18:19) [8]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.008 c