Удаление записи из файла

[ZotaC]

Здравствуйте, у меня появился такой вопрос. Есть ли в Delphi стандартная функция для удаления какой-либо записи из файла? Нигде не нашел такой информации. Просто необходимо некоторую записи в файле заменить новой, а для этого ее надо удалить.

Сам я пробовал сделать свою функцию, но она работает слишком медленно. Вот она:

Procedure RecDel(Path: String; RecNum, RecSize: Integer);
var
  File: File;
  sFile: String;
  Size: Integer;
  i: Integer;
begin
//Считывание
  Size := FileSize(Path);
  SetLength(sFile, Size);
  AssignFile(File, Path);
  Reset(File, 1);
  for i := 1 to Size do
    BlockRead(File, sFile[i], 1);
  CloseFile(File);
//Уаление
  Delete(sFile, RecNum, RecSize);
//Запись
  Rewrite(File, 1);
  Seek(File, FileSize(Path));
  Truncate(File);
  for i := 1 to Length(sFile) do
    BlockWrite(File, sFile[i], 1);
  CloseFile(File);
end;

[Serge_Bliznykov]

1) непонятно, что Вам собственно надо...

2) так КАТЕГОРИЧЕСКИ нельзя.
Ну что ж, Вы всё правильно сделали, и даже процедуру правильную дёргаете, но в цикле!! По одному БАЙТУ!!
попробуйте заменить:

for i := 1 to Size do
    BlockRead(File, sFile[i], 1);
....

for i := 1 to Length(sFile) do
    BlockWrite(File, sFile[i], 1);

на

  BlockRead(File, sFile[1], Size);
...
  BlockWrite(File, sFile[1], Length(sFile));

p.s. это, так сказать, замена "в лоб", ибо я не разбирал, что же собственно Вам надо сделать (смотри мой вопрос нумер раз)...

[ZotaC]

Спасибо, так стало работать намного быстрее. Впрочем, я делал почти так же, за исключением лишь одного: вместо sFile[1] писал просто sFile, после чего в нужном файле оказывались какие-то непонятные символы. Если несложно, не могли бы вы разъяснить, в чем причина этого и в чем разница?

непонятно, что Вам собственно надо...

Надо открыть любой файл, и на место одной записи (число типа Integer) поставить другую, заменив старую запись на новую. Теперь-то, конечно, дело за малым: просто вставить новое число в нужное место, и готово. А за цикл я взялся только по вышеописанной причине, конечно, понимая, что в этом и причина такой медленной работы программы.

[Serge_Bliznykov]

и на место одной записи (число типа Integer) поставить другую, заменив старую запись на новую.

Тогда вообще не понятны пляски с бубном вокруг чтения, циклов, транкейта файла и прочего...

если записывать надо ПОВЕРХ
достаточно

  Seek(f, нужное смещение);
  BlockWrite(f, НовоеЗначение);

и всё.


p.s. перед строкой находится служебная информация. а первый символ строки имеет индекс 1
поэтому Stroka[1] - это, фактически указатель на первый символ строки...
потом указываем длину строки.
(кстати, надо с этим аккуратнее, если строка WideString/Unicode - то каждый символ занимает больше одного байта,
поэтому длину строки лучше умножать на размер одного символа:
BlockWrite(f, UniString[1], Length(UniString)*SizeOf(Char));

[ZotaC]

Спасибо. Со строкой, вроде, разобрался. Тогда еще такой вопрос: функция Rewrite, которой я открывал файл для записи, заменяет уже существующий файл. То есть, как мне казалось, если просто вставить туда данные, то все остальные данные, которые были в файле до этого, просто сотрутся. Разве не так?

[Serge_Bliznykov]

Rewrite, которой я открывал файл для записи, заменяет уже существующий файл

разумеется!!
Открывайте через Reset()!
и спокойно пишите через BlockWrite(..)
По умолчанию filemode (в Pascal/Delphi) равен чтение/запись.