[vankai14]

Сообщение от icWasya

Я имел ввиду, посмотреть в справке параметры функции TStream.Write, и сравнить с теми, что Вы туда подаёте

А так не правильней будет как считаете? разбивать и писать по 1 байту

Код:

var helpwrite64:int64; helpwrite8:byte;
.........................
CloseF:=Tfilestream.Create('crypted',fmCreate);
     for ifile:=0 to round do for s:=0 to 7 do
                              begin
                              helpwrite64:=((fout[ifile] shl (s*8)) shr 56 );
                              helpwrite8:=helpwrite64;
                              CloseF.Write('crypted',helpwrite8,1);
                              end;
     CloseF.Free;