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

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

procedure

TForm1.Button1Click(Sender: TObject); var

f: file

; i: integer; begin

i := 10; AssignFile(f, 'C:DownLoadTest.Bin'); ReWrite(f, 1); BlockWrite(f, i, sizeof(i)); FlushFileBuffers(TFileRec(f).Handle); CloseFile(f); end

;

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

Категории

Статьи

Советы

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