Советы по Delphi



         

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


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

procedure SetBinaryMode (var F: file); assembler;
asmmov ax,$4400les di,Fmov bx,word ptr es:[di]int $21or dl,$20xor dh,dhmov ax,$4401int $21end;

-Steve [000603]




Содержание  Назад  Вперед