Советы по Delphi

         

Как сбросить на диск кэшированную информацию о бинарном файле?


Своим опытом делится Олег Кулабухов:

    procedure TForm1.Button1Click(Sender: TObject);
var
f : file;
i : integer;
begin
i := 10;
AssignFile(f, 'C:\DownLoad\Test.Bin');
ReWrite(f, 1);
BlockWrite(f, i, sizeof(i));
FlushFileBuffers(TFileRec(f).Handle);
CloseFile(f);
end;

[001853]



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