seek & textfile

[dukales]

есть код:

function r_n_w(var fp: textfile; pkey : string):boolean;
var c:char;
    inword: boolean;
	temp : integer;
begin
if (eof(fp)) then
    begin
      seek(fp,2);
    end;

делфинский компилятор кричит что incompatible types.
мне нужно, если указатель в конце файла переместиться на начало.
погуглил, вроде бы с textfile такого нельзя сделать.
тогда вопрос, - как заставить указатель переместиться на первую запись в textfile?

[Serge_Bliznykov]

как заставить указатель переместиться на первую запись в textfile?

Текстовые файлы не являются файлами прямого доступа, понятие "запись" для них (строго говоря) - неопределено, перемещаться внутри файла можно только последовательно.
seek для них - не разрешён.
Чтобы установить чтение файла на начало текстового файла достаточно закрыть его и открыть.

Что Вы хотите сделать?

[NetSpace]

var F:File;
    i:Integer;
begin
   AssignFile(F,Name);
   Reset(F,1);
   for i:=0 to 3 do //просто записываем какие-то 4 символа
   begin
      Seek(F,i);
      BlockWrite(F,massiv[i],1);//записываем посимвольно даные из строки massiv
   end;
   CloseFile(F);

Name - это полное имя файла, вроде как C:\Windows\TextFile.dat
а если нужно в конец файла поставить запись, то пишем так:

Seek(F,FileSize(F));

а если по окончании записи недо снова вернуться в начало файла, то вставь строчку в код:

if(i=FileSize(F))then i:=0;

он тебе начнёт запись с начала файла
это хотели?

[dukales]

угу, оно самое. спасибо)