Глубины Indy


Блокирующий режим записи файла


Блокирующая запись в файл выглядит следующим образом:

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;

Как вы видите, это практически повторяет приведенный выше псевдокод. Код последовательный  и легкий для понимания.




Начало  Назад  Вперед