seek

Синтаксис:

seek(f_id, pos);

Аргументы:

Описание:

seek(f_id, pos) – функция установки текущей позиции на номер байта pos в файле с идентификатором f_id.

Результат:

Пример:

var   
s1: string = "string1" + chr(10) + "string2",
s2: string = "string3";                      
//создадим новый файл                       
f_id = createfile("file1.dat", -1)          
//запишем в него строку s1                  
writeln(f_id, s1);                          
//установим текущую позицию в начало        
seek(f_id, 0);                             
//запишем в него строку s2                  
writetext(f_id, s2);                        
//получим текущую позицию в файле           
n = getpos(f_id);                           
//закроем файл                              
freeobject(f_id);

В процессе выполнения при помощи функции createfile будет создан новый файл с идентификатором f_id. В файл при помощи функции writeln будет записана строка s1. При помощи функции seek текущая позиция в файле будет установлена в начало (0). В файл при помощи функции writetext будет записана строка s2 с текущей позиции, затерев при этом записанные ранее данные. При помощи функции getpos будет получена текущая позиция в файле. Переменной n будет присвоено значение 7, соответствующее текущей позиции в файле с идентификатором f_id (7-ой байт). Файл будет содержать текст:

string3

string2

Перед завершением примера файл закрывается при помощи функции freeobject.

Дополнительные материалы

Нет.