|
Авто, мото
Бизнес, финансы
Города и страны
Гороскопы, магия , гадания
Еда, кулинария
Животные, растения
Знакомства, любовь, отношения
Книги, Музыка, Кино
Компьютеры, Интернет, Игры
Красота и здоровье
Наука и техника
Образование
Общество, политика, культура
Отдых, досуг, развлечения
Путешествия, туризм, отдых
Работа, карьера
Светская жизнь, Мода, Стиль
Семья, дом, дети
Телевидение
Темы для взрослых
Товары и услуги
Философия, Непознанное
Фото, видео
Спорт, Хобби
Электроника и Бытовая техника
Юридическая консультация
Юмор
Другое
Темы о проекте
|
|
| |
| |
.•·°Hellboy°·•.
Россия , Хабаровский край
Возраст: 33
Когда: 01/02 13:59, категория вопроса: Образование
Вопрос:
Хелп, люди!!! Помогите с курсовой! Срочно надо знать, как в Delphi сделать ПОБИТОВУЮ запись в файл. Минимальный размер записи в нетипизированный файл - байт. А мне нужно записать в файл произвольный битовый код. И желательно его оотуда потом считать, так же побитово... Help!!!
Оцените вопрос: |
| |
|
Этот вопрос закрыт от дополнительных ответов, вы не можете добавить ответ. Статус вопроса: Закрыт
| |
Александр,
Ученик (621)
Израиль, Хайфа
Когда: 01/02 15:27
| На Дельфи писал очень давно, синтаксис не помню. Но,примерно, вот так:
procedure FileCopy(const FileFrom, FileTo: string) ;
var
FromF, ToF: file;
NumRead, NumWritten: Integer;
Buffer: array[1..2048] of Byte;
begin
AssignFile(FromF, FileFrom) ;
Reset(FromF, 1) ;
AssignFile(ToF, FileTo) ;
Rewrite(ToF, 1) ;
repeat
BlockRead(FromF, Buffer, SizeOf(Buffer), NumRead) ;
BlockWrite(ToF, Buffer, NumRead, NumWritten) ;
until (NumRead = 0) or (NumWritten NumRead) ;
CloseFile(FromF) ;
CloseFile(ToF) ;
end; |
|
| |
Daniel,
Мудрейший из мудрейших (85902)
Израиль
Когда: 01/02 17:16
И тебе не стыдно было такого не знать? Это же элементарно!...Не то, что Олбанский :)
Так что, как что, сразу- к нам, сильвупле! :) |
|
Уважаемые пользователи Otveti.Orbita.co.il!
В связи с наплывом ботов и из-за остроты тем в новой реальности, мы временно закрываем возможность задавать вопросы и комментировать.
Нам очень будет вас не хватать. Скоро возможность общаться восстановится во всех вопросах.
Пожалуйста, выражайте поддержку лайком и делитесь материалом с друзьями. Берегите себя. Нет войне!
|
