Разместите нашу кнопку!

Новые статьи:

Programming articles

Создание сайтов на шаблонах

Множество вариантов работы с графикой на канве

Шифруем файл с помощью другого файла

Перехват API функций - Основы

Как сделать действительно хороший сайт

Создание почтового клиента в Delphi 7

Применение паскаля для решения геометрических задач

Управление windows с помощью Delphi

Создание wap сайта

Операционная система unix, термины и понятия

SQL враг или друг

Возникновение и первая редакция ОС UNIX

Оптимизация проекта в Delphi

Ресурсы, зачем нужны ресурсы

Термины программистов 20 века

Советы по созданию собственного сайта с нуля

Шифруем файл с помощью пароля

Фракталы - геометрия природы

Crypt - Delphi программа для шифрования

Рассылка, зачем она нужна и как ее организовать?

Учебник по C++ для начинающих программистов

Уроки для изучения ассемблера

Загадочный тип PCHAR

Средства по созданию сайтов

Операторы преобразования классов is и as

Borland Developer studio 2006. Всё в одном

Создание базы данных в Delphi, без сторонних БД


Software engineering articles



Seek

Устанавливает указатель в двоичном файле в позицию новой записи

Описание:

    Процедура Seek перемещает позицию текущей записи в открытом двоичном файле, заданном переменой FileHandle, в новую позицию RecordNumber.

     Файл должен быть связан с файловой переменной с помощью функции AssignFile и открыт с помощью Reset или ReWrite.

     Дня нетипизированных файлов размер записи устанавливается с помощью процедуры Reset или ReWrite.

     Для типизированных файлов размер записи равен SizeOf(тип записи файла).

     Первая запись в файле начинается с номера 0.

Пример кода:

var
   myWord, myWord1, myWord2, myWord3, myWord4 : Word;
   myFile : File of Word;

begin
   // Try to open the Test.cus binary file in write only mode
   AssignFile(myFile, 'Test.cus');
   ReWrite(myFile);

   // Write a few lines of Word data to the file
   myWord1 := 12;
   myWord2 := 34;
   myWord3 := 56;
   myWord4 := 78;
   Write(myFile, myWord1, myWord2, myWord3, myWord4);

   // Close the file
   CloseFile(myFile);

   // Reopen the file for read only purposes
   FileMode := fmOpenRead;
   Reset(myFile);

   // Seek (move) to the start of the 3rd record
   Seek(myFile, 2); // Records start from 0

   // Show this record
   Read(myFile, myWord);
   ShowMessage('Record 3 = '+IntToStr(myWord));

   // Close the file
   CloseFile(myFile);
end;

Результат выполнения:

Record 3 = 56