Форум: "Основная";
Текущий архив: 2002.06.10;
Скачать: [xml.tar.bz2];
Вниз
Работа с файлами Найти похожие ветки
← →
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 не работает?
← →
Song (2002-05-30 13:03) [10]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;
взято из рабочего проекта :)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.06.10;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.005 c
