Советы по Delphi

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


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

    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;

-Steve [000603]



Содержание раздела