Посоветуйте функции для работы с файлами

[DeKot]

Не стоит забывать о зависимости скорости работы с файлами (да и не только с файлами) от аппаратного обеспечения. Программные ухищрения, оптимизация сводятся на нет при недостаточной конфигурации компьютера - низкое быстродействие, недостаток памяти.

[VintProg]

Я вот плохо в файлах пока понимаю,
как мне реализовать такую функцию которой можно добавлять в файл данные а не перезаписывать может кто знает как это реализовать?

вот посмотрите что я не могу сделать до путя
короче Editor Pack косячиный иза моего не домысла
юзайте readme!!! в нутри.
Error_pack_editor.rar

[Utkin]

Имеются специальные функции, позволяющие смещать указатель в файле. Когда вы открываете файл (это относится и к потокам), имеется возможность устанавливать текущее положение от которого производится чтение/запись.

Процедура SEEK.
Смещает указатель файла к требуемому компоненту. Формат обращения:
SEEK (<ф.п.>,<N компонента>)
Здесь <N компонента> - выражение типа LONGINT, указывающее номер компонента файла.
Первый компонент файла имеет номер 0.

Содрал с самоучителя по ТурбоПаскалю.

То есть открыли файл для записи. Сместили указатель в конец и пишем, пишем, пишем...

[VintProg]

Да это я знаю я хотел вот так к примеру вот данные в файле:
0123456789

я хочу добавить вот эти данные %%%% на 3 позицию
чтобы получилось вот так

01%%%%3456789

как такую функцию написать?

Просто не могу как это сделать для моего формата:
в начали идете заголовок:

type
 TPacHeader = packed record
   PacName : array[0..2] of char; //Зоголовок
   InfoSizeName : integ; //Размер содержымой инфы
 end;

PacName сдесь сегда должен быть 'PAC' в файле
InfoSizeName - размер инфы файлов

сама инфа:

type
 TPacInfo = packed record   //34 - байта
  Name : array[0..25] of char; //Имя файла может быть до 26 символов
  OffSet : integer; //Смещение файла то и есть позиция
  Size : integer;   //Размер файла максимальный размер может быть до 4Гб
 end;

когда надо добавить новый файл в pac
надо добавить инфу и сам файл,
в тех модулях что я выложил там когда добовляеш в pac новый файл
инфа затирает первый файл в pac в результате первый файл не пашет,
как решить эту задачу какими функциями пользоваться?

[Utkin]

Если инфы мало - считайте файл в массив, исправьте там, все как Вам нравиться и перепишите файл новыми значениями. Изначально речь вроде шла о вставке данных в конец файла...

[VintProg]

Лутчии функции для работы с файлами это в Kernel32.dll я так понял.

[DarkEvil]

VintProg

Вот вам примеры функций для работы с файлами(насколько я понял вы пытаетесь манипулировать с packed record)

unit RecordBase;

interface

 uses
  classes,  sysutils;


  Type

    TelBase = packed record
    Name : String[20];
    Street : String[30];
    BdNumber : String[5];
    KvNumber : String[4];
    telNumber : String[7];

  end;

     TRecordStream = class(TFileStream)
      private
       function GetNumRecs : Longint;
       function GetCurRec  : Longint;
       procedure SetCurRec(RecNo : Longint);
      protected
       function GetRecSize : Longint; Virtual;
      public
       function SeekRec(RecNo : Longint; Origin : Word): Longint;
       function WriteRec(const Rec): Longint;
       function AppendRec(const Rec): Longint;
       function ReadRec(var Rec): Longint;
       procedure First;
       procedure Last;
       procedure NextRec;
       procedure PreviousRec;
       property NumRecs : Longint read GetNumRecs;
       property CurRec : Longint read GetCurRec write SetCurRec;
       end;



implementation

{ TRecordStream }

function TRecordStream.AppendRec(const Rec): Longint;
begin
Seek(0, 2);
Result := Write(Rec, GetRecSize);
end;

procedure TRecordStream.First;
begin
Seek(0, 0);
end;

function TRecordStream.GetCurRec: Longint;
begin
Result := (Position div GetRecSize) + 1;
end;

function TRecordStream.GetNumRecs: Longint;
begin
Result := Size div GetRecSize;
end;

function TRecordStream.GetRecSize: Longint;
begin
Result := SizeOf(TelBase);
end;

procedure TRecordStream.Last;
begin
Seek(0, 2);
Seek(- GetRecSize, 1);
end;

procedure TRecordStream.NextRec;
begin
if ((Position + GetRecSize) div GetRecSize) = GetNumRecs then
 raise Exception.Create('Cannon read beyond end of file')
  else
   Seek(GetRecSize, 1);
end;

procedure TRecordStream.PreviousRec;
begin
if (Position - GetRecSize >= 0) then
 Seek(- GetRecSize, 1)
  else
   raise Exception.Create('Cannon read beyond beginning of the file');
end;

function TRecordStream.ReadRec(var Rec): Longint;
begin
Result := Read(Rec, GetRecSize);
Seek(- GetRecSize, 1);
end;

function TRecordStream.SeekRec(RecNo: Integer; Origin: Word): Longint;
begin
Result := Seek(RecNo * GetRecSize, Origin);
end;

procedure TRecordStream.SetCurRec(RecNo: Integer);
begin
if RecNo > 0 then
 Position := (RecNo - 1) * GetRecSize
else
Raise Exception.Create('Cannot go beyond beginning of file.');
end;

function TRecordStream.WriteRec(const Rec): Longint;
begin
Result := Write(Rec, GetRecSize);
end;

end.

З.Ы. Когда-то в детсве я делал телефонный справочник и нашол в какой-то книге этот шаблон

[VintProg]

А у меня такой вопрос как удалить в файле 4 - байта,
допустим в файл весил 10 байт после удаления стал весить 6 байт?

[DarkEvil]

Truncate

Процедура Truncate обрезает файла в текущей позиции. Все данные после текущей позиции стираются.

[VintProg]

А добавить допустим 4 - байта есть такая функция?