Работа с файлами

← →
Great DAN © (2002-05-30 11:21) [0]

Подскажите пожалуйста... как добавить запись в файл.
Я открываю его Reset"ом, ну и указатель стоит в начале, как поставить указатель в конец, я пробовал просто прокрутить до конца, но потом при обращении выдает ошибку.
Файл типизированный.
С уважением, Денис

← →
Anatoly Podgoretsky © (2002-05-30 11:24) [1]

Для перемещения нужно использовать функцию Seek

← →
KaPaT © (2002-05-30 11:25) [2]

type
rec = record
one : Integer;
two : Integer;
end;

var
file_rec : file of rec;
record_ : rec;
begin
...
Seek(file_rec,FileOfSize(file_rec));
Write(file_rec,record_);
...
end;

← →
KaPaT © (2002-05-30 11:26) [3]

Извиняюсь....не FileOfSize а просто FileSize

← →
Anatoly Podgoretsky © (2002-05-30 11:36) [4]

KaPaT © (30.05.02 11:25)
А ты уверен, что ты таким методом не увеличишь размер файла в 8 раз, Seek работает не в байтах, а в компонентах

← →
Great DAN © (2002-05-30 12:09) [5]

Дело в том, что я не знаю как выставить конечное значение в seek, попробовал FileSize, на типе Char работает а на записях
:(((

← →
eSKey (2002-05-30 12:09) [6]

Люди, а вы не обратили внимание на фразу пациента:

> Подскажите пожалуйста... как добавить запись в файл.

и

> Я открываю его Reset"ом,

А советы конечно хорошие ;) ;)

← →
esVer (2002-05-30 12:17) [7]

st:=TFileStream.Create(...
st.Position:=st.Size;
st.Write(...
st.Free;

← →
Anatoly Podgoretsky © (2002-05-30 12:32) [8]

Great DAN © (30.05.02 12:09)
FileSize(F) div SizeOf(Type)

eSKey (30.05.02 12:09)
А что тебя смущает в вопрос, и при чем тут непизированный докступ через TFileStream, про него вопроса не было.

← →
andron (2002-05-30 12:48) [9]

А append не работает?

2andron (30.05.02 12:48)
Append() для текстовых файлов.

← →
eSKey (2002-05-30 13:48) [11]

> Anatoly Podgoretsky

> А что тебя смущает в вопрос, и при чем тут непизированный
> докступ через TFileStream, про него вопроса не было.

Вспылил, был неправ, обещаю загладить безобразную ошибку. Кстати esVer это не я, а вовсе другой человек :)

← →
yozhik (2002-05-30 14:57) [12]

var f: File of TRec begin AssignFile(f,sDir+sFileName); Reset(f); Seek(f, FileSize(f)); ... end;
взято из рабочего проекта :)

Работа с файлами Найти похожие ветки