Работа с файлами

...
const
  INFO_OFFSET = 24; // смещение
  FILE_LENGTH = INFO_OFFSET + SizeOf(Real) + 151; // размер всего файла
  PATH_FILE = 'C:\file.save'#0; // путь к файлу
......
// чтение из файла по пути PATH_FILE данных типа Real
// с позиции INFO_OFFSET
function ReadFileWithOffset(var ReadNumber: Real): BOOL;
var
  hFile: DWORD;
  lpBuffer,
  tmp: Pointer;
  lpNumberOfBytesRead: DWORD;
begin
// инициализация
  Result := false;
  lpNumberOfBytesRead := 0;
  lpBuffer := nil;
// открытие файла
  hFile := CreateFile(PChar(PATH_FILE), GENERIC_READ, 0,
                      nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  if hFile = 0 then exit; // если файл не открыт, то дальше делать нечего
// читаем из файла данные
  try
// выделяем память под буфер размером смещение + размер читаемых данных
// также можно читать сразу по смещению, указанному в lpOverlapped при асинхронном чтении, но так проще
    GetMem(lpBuffer, INFO_OFFSET + SizeOf(Real));
// читаем в буфер
    if ReadFile(hFile, lpBuffer^, INFO_OFFSET + SizeOf(Real),
                lpNumberOfBytesRead, nil) then
    begin // если чтение успешно
      tmp := lpBuffer;
      inc(PByte(tmp), INFO_OFFSET); // смещаемся в буфере
      ReadNumber := Real(tmp^); // получаем требуемые данные по необходимому смещению
    end;
 
  finally
// освобождаем память под буфер и закрываем файл
    FreeMemory(lpBuffer);
    CloseHandle(hFile);
  end;
// возвращаем результат выполнения (все ок, если число прочитанных байт соответствует требуемому)
  Result := (INFO_OFFSET + SizeOf(Real) = lpNumberOfBytesRead);
end;
 
// запись в файл по пути PATH_FILE размером FILE_LENGTH мусора,
// в позицию INFO_OFFSET записываются данные типа Real
function WriteFileWithOffset(WriteNumber: Real): BOOL;
var
  hFile: DWORD;
  lpBuffer,
  tmp: Pointer;
  lpNumberOfBytesWritten: DWORD;
  i: integer;
begin
// инициализация
  Result := false;
  Randomize;
  lpNumberOfBytesWritten := 0;
  lpBuffer := nil;
// создание файла
  hFile := CreateFile(PChar(PATH_FILE), GENERIC_WRITE, 0,
                      nil, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
  if hFile = 0 then exit; // если файл не создан, то дальше делать нечего
// заполнение файла мусором
  try
// выделяем память под буфер (если размер файла большой, то лучше выделять кусками и также записывать)
    GetMem(lpBuffer, FILE_LENGTH);
// заполняем буфер мусором, при требуемом смещении записываем необходимые данные
    tmp := lpBuffer;
    i := 0;
    while i <= FILE_LENGTH do
    begin      
      if i = INFO_OFFSET then // достигли требуемого смещения
      begin
        Real(tmp^) := WriteNumber;
        inc(PByte(tmp), SizeOf(Real));
        inc(i, SizeOf(Real));
      end else // заполняем побайтно мусором
      begin
        byte(tmp^) := Random($FF + 1);
        inc(PByte(tmp));
        inc(i);
      end;
    end;
// записываем в файл, результат операции неважен
    WriteFile(hFile, lpBuffer^, FILE_LENGTH, lpNumberOfBytesWritten, nil);
  finally
// освобождаем память под буфер и закрываем файл
    FreeMemory(lpBuffer);
    CloseHandle(hFile);
  end;
// возвращаем результат выполнения (все ок, если число записанных байт соответствует требуемому)
  Result := (lpNumberOfBytesWritten = FILE_LENGTH);
end;