Блокирующий режим записи файла
Блокирующая запись в файл выглядит следующим образом:
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
s := 'Indy Rules the (Kudzu) World !' + #13#10;
try
// Open the file
with TFileStream.Create('c:\temp\test.dat', fmCreate) do
try
// Write data to the file
WriteBuffer(s[1], Length(s));
// Close the file
finally
Free;
end;
end;
end;
Как вы видите, это практически повторяет приведенный выше псевдокод. Код последовательный и легкий для понимания.
