VPF::Побайтное чтение и запись из файла

Chyslyvchyk

Дата 6.12.2004, 11:01 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 446
Регистрация: 9.5.2004

Репутация: 1
Всего: 5

Тема уже создана вот тут: http://forum.vingrad.ru/index.php?showtopic=36306
smile

--------------------

Простота - сестра таланта!

<Spawn>

Дата 6.12.2004, 17:49 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

Писать в файл тоже очень просто.

Код


var
  WriteStream, ReadStream: TFileStream;
begin
  WriteStream := TFileStream('C:\FileName.txt', fmOpenWrite); // Если этот экземпляр класса нужен только для записи.
  //Ну и потом на каждой итерации чтения пиши в другой файл
  while ReadStream.Position < ReadStream.Size do
  begin
    ReadStream.Read(Buffer, 1024);
    WriteStream.Write(Buffer, 1024);
  end;
  ...
end;

Но в данном случае проще воспользоваться функцией CopyFile.

Это сообщение отредактировал(а) <Spawn> - 6.12.2004, 17:49

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »