type
TType = record
Id: Integer;
Name: string[60];
end;
var
r: TType;
f: file of TType;
begin
assign(f, 'Файлик.dat');
reset(f);
Seek(f, FileSize(f)); - переместить указатель в конец файла
...
read(f, r);
...
write(f, r);
...
close(f);
end;
__________________
Хорошо написанная программа не требует документации
ICQ 9-184-668.
|