запись в конец файла java

Ответ от Gennady[гуру]
Доброго времени суток.
В правильном направлении вы двигались. Именно через Seek. Вот пример рабочей программки. Файл содержит информацию о книгах. Зная структуру, не трудно его создать.
program Primer;
uses Crt;
type
RBook = record
name_book : string[30];
avtor : string[20];
pages : word;
year_pub : word;
end;
var
i,j,n : integer;
q, q1 : RBook;
f : file of RBook;
Size, MaxPages, MaxI : Integer;
begin
ClrScr;
Assign(F, 'Book.dat');
Reset(F);
Size := FileSize(F); {определение числа записей в файле}
{выводим содержимое файла для контроля}
for i:=1 to Size do begin
Read(F, q);
WriteLn(q.name_book, ' ', q.avtor, q.pages:5, q.year_pub:6);
end;
WriteLn;
{попытаемся добавить запись}
q.name_book := 'Book adding';
q.avtor := 'PGL';
q.pages := 5;
q.year_pub := 2009;
Seek(F, FileSize(F)); {указатель в конец файла}
Write(F, q); {и пишем в файл}
Size := FileSize(F); {определение нового числа записей в файле}
{сортировка файла по полю "автор"}
for i := 1 to Size do
for j := 1 to Size - i do begin
Seek(F, j-1); {позиционируем на запись}
Read(F, q); {читаем ее}
Read(F, q1); {и следующую}
if q.avtor > q1.avtor then begin
{меняем записи местами}
Seek(F, j-1);
Write(F,q1);
Write(F,q);
end;
end;
Reset(F);
{выводим содержимое файла для контроля сортировки}
for i:=1 to Size do begin
Read(F, q);
WriteLn(q.name_book, ' ', q.avtor, q.pages:5, q.year_pub:6);
end;
WriteLn;
{ищем книгу с максимальным числом страниц}
Reset(F);
MaxPages := 0;
for i:=1 to Size do begin
Read(F, q);
if q.pages > MaxPages then begin
MaxPages := q.pages;
MaxI := i-1;
end;
end;
{выводим книгу с максимальным числом страниц}
Seek(F,MaxI);
Read(F,q);
WriteLn(q.name_book, ' ', q.avtor, q.pages:5, q.year_pub:6);
Close(f);
ReadLn;
end.
Думаю, разберетесь.
Удачи!
PS Я думал, что вопрос уже разрешился.. .