getpos

Синтаксис

n = getpos(f_id);

Аргументы

Описание

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

Результат

Пример

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

В процессе выполнения при помощи функции createfile будет создан новый файл с идентификатором f_id. В файл при помощи функции writeln будет записана строка s1. При помощи функции getpos будет получена текущая позиция в файле. В файл при помощи функции writetext будет записана строка s2. При помощи функции getpos будет получена текущая позиция в файле. Переменной n1 будет присвоено значение 17, переменной n2 будет присвоено значение 24, соответствующее текущей позиции после записи соответствующих строк в файл с идентификатором f_id. Файл будет содержать текст:

string1

string2

string3

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

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

Нет.