VPF::замена части файла - Форум программистов

javas

Дата 31.3.2004, 22:38 (ссылка)

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

Загрузка ...

Бывалый

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

Репутация: нет
Всего: 2

Как заменить часть файла, на другую.
Кроме как BlockRead..Write можно еще что-нибудь использовать?

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

z-END

Дата 31.3.2004, 22:45 (ссылка)

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

Загрузка ...

прафесар™

Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

Репутация: 11
Всего: 102

ну можно еще использовать ReadLn-WriteLn, а так-же Read - Write и конечно же Seek()

а специальных функций и процедур нет

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

Каждый чилавек пасвоему праф...а памоему НЕТ!

javas

Дата 31.3.2004, 22:46 (ссылка)

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

Загрузка ...

Бывалый

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

Репутация: нет
Всего: 2

Ну лады

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

Jey_k

Дата 31.3.2004, 22:47 (ссылка)

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

Загрузка ...

WEB-командир

Профиль
Группа: Комодератор
Сообщений: 4149
Регистрация: 16.11.2003
Где: Москва

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

да, синтаксис паскаля такой сервис не предоставляет вроде

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

Проверка IP

user posted image

<Spawn>

Дата 1.4.2004, 04:57 (ссылка)

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

Загрузка ...

Око кары:)

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

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

Вот пример:

Код

procedure TForm1.Button1Click(Sender: TObject);
var
  fs: TFileStream;
  ms: TMemoryStream;
  iTest: Char;
  Mode: Word;
begin
  if not OpenDialog1.Execute then
    Exit;

  if not FileExists(OpenDialog1.FileName) then
    Mode := fmCreate or fmOpenWrite
  else
    Mode := fmOpenWrite;

  try
    fs := TFileStream.Create(OpenDialog1.FileName, Mode);
    ms := TMemoryStream.Create;
    iTest := 'a';
    ms.Write(iTest, SizeOf(Char));
    iTest := 'b';
    ms.Write(iTest, SizeOf(Char));
    ms.Seek(0, soFromBeginning);
    //Пытаемся записать со второй позиции
    if fs.Size >= 2 then
      fs.Seek(2, soFromBeginning);
    fs.CopyFrom(ms, ms.Size);
  finally
    FreeAndNil(ms);
    FreeAndNil(fs);
  end;
end;

Это сообщение отредактировал(а) <Spawn> - 1.4.2004, 04:59

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

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

javas

Дата 1.4.2004, 09:51 (ссылка)

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

Загрузка ...

Бывалый

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

Репутация: нет
Всего: 2

А вторая позиция в чем измеряется?
to nJIaKca.spb,
Походу то что ты написал для типизированных файлов.

Это сообщение отредактировал(а) javas - 1.4.2004, 09:52

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

<Spawn>

Дата 1.4.2004, 11:25 (ссылка)

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

Загрузка ...

Око кары:)

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

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

Какая вторая позиция?

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

javas

Дата 1.4.2004, 11:41 (ссылка)

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

Загрузка ...

Бывалый

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

Репутация: нет
Всего: 2

Код


//Пытаемся записать со второй позиции
   if fs.Size >= 2 then

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

<Spawn>

Дата 1.4.2004, 13:55 (ссылка)

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

Загрузка ...

Око кары:)

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

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

В байтах

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

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