вопрос | ответ |
Пример 11 дописать значение V в конец файла | procedure TForm1.Button10Click(Sender: TObject); var V:Integer; begin V:=100; FileHandle:=FileOpen( E |
Пример 10 Открытие файла на чтение и считывание 5 данных в Y со смещением от начала файла на 3 значения | procedure TForm1.Button6Click(Sender: TObject); begin K:=3; // смещение на 3 Size:=Sizeof(Integer); //размер типа Inte |
Пример 9 Открытие файла на чтение и считывание данных (50 байт ) в массив Y со смещением от начала файла на 10 байт | procedure TForm1.Button3Click(Sender: TObject); begin FileHandle:=FileOpen( Edit1.Text, fmOpenReadWrite); );// открытие на чтение и з |
Пример 8 Открытие файла на чтение и считывание данных (100 байт ) в массив Y | procedure TForm1.Button3Click(Sender: TObject); begin FileHandle:=FileOpen( Edit1.Text, fmOpenRead);// открытие на ч |
Пример 7 Создание файла и запись в него массива X | procedure TForm1.Button3Click(Sender: TObject); var X,Y:array[1..10] of Integer; begin FileHandle:=FileCreate(Edit1 |
FileSeek(Handle, OffSet, Origin: Integer) | Origin –задает начало отсчета ( 0 – от начала файла, 2 – от конца , 1 – от текущей позиции) Offset – задает смещение в байт |
5. Позиционирование файла | FileSeek(Handle, OffSet, Origin: Integer) |
4. Закрытие файла | FileСlose(Handle: Integer) |
3. Запись в файл, чтение из файла | Функция FileWrite(Handle:Integer; Buffer; Count:Integer):Integer – записи в файл Buffer – переменная значение которой записывается в |
2. Открытие файла | Функция FileOpen(FileName:String, Mode:Integer):Integer- присваивает номер ( Handle ) |
1. Создание файла | Функция FileCreate(FileName:String):Integer - присваивает уникальный номер ( Handle ) |
Для указания длины записи используется функция, определяющая размер переменной данного типа Sizeof (X). | В общем случае размер записи можно изменять как на этапе записи в файл так и считывания. |
При работе с данными файлами не надо создавать файловую переменную. | Файлу присваивается уникальный номер ( Handle ), записи могут иметь разную длину. |