скрыть скрыть
Delphi FAQ - Часто задаваемые вопросы | Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа || ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |
Автор: Vit
var b: string[15]; begin with TFileStream.create('c:\MyFile.doc', fmShareDenyNone) do try read(b, 14); showmessage(b); finally Free; end; end;