| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Помогите с TFilestream
Arcticcat © (2009-06-12 08:59:00)файл 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;
Заранее спасибо за ответы)
Anatoly Podgoretsky (2009-06-12 18:19:00) [1]Ты благодари бога, что дело не кончилось AV
Arcticcat (2009-06-12 10:53:00) [2]да что то я совсем не посмотрел его особенности) спасибо sniknik)
я использовал AnsiСhar вместо Сhar(который на самом деле являлся WideChar)
но я наткнулся ещё на одну сложность, как можно отличить строку в кодировке ANSI от Unicode?
sniknik (2009-06-12 10:18:00) [3]> aBuff: array[0..128] of char;
почитай что это за тип в твоей версии дельфей. (очевидно 2009-й)
Arcticcat (2009-06-12 09:54:00) [4]как вообще определить к какой кодировке относится символ?
palva (2009-06-12 09:53:00) [5]
> а он сохранён в ansi
Тогда не знаю, других идей нет.
Arcticcat (2009-06-12 09:44:00) [6]а он сохранён в ansi
Arcticcat (2009-06-12 09:43:00) [7]мм, а как это сделать?)
palva (2009-06-12 09:38:00) [8]А может там не цифры? Может файл сохранен из блокнота в UTF8 ? Можете выложить сюда 16-ричный код нескольких первых байтов файла?
| |
