Установка режима бинарного файла

Советы » Файлы » Установка режима бинарного файла

Попробуйте вызвать приведенную ниже процедуру немедленно после перезаписи выходного файла и перед началом записи в него:

procedure

SetBinaryMode(var

F: file

); assembler

; asm

mov ax,$4400 les di,F mov bx,word ptr es:[di] int $21 or

dl,$20 xor

dh,dh mov ax,$4401 int $21 end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com