Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > как дозаписывать в типизированном файле

Автор: dembel 23.3.2008, 01:53

есть файл уже с записями, как в файл еще запись, вообщем тоже самое что делает функция append для обычных текстовых файлов только для типизированных файлов??? Заранее спасибо

Автор: VICTAR 23.3.2008, 02:08

Перейти в конец файла и писать

Код


   Seek(Vf, FileSize(Vf));

Автор: dembel 23.3.2008, 02:13

VICTAR, а можно какой нибудь примерчик то у меня не получается???

Автор: VICTAR 23.3.2008, 02:16

Покажи что не получается, а я постараюсь исправить

Автор: dembel 23.3.2008, 02:19

Код


type f = record
 fam:string[100];
 name:string[100];
 mat:string[10];
 engl:string[10];
 inf:string[10];
end;
var outfile: file of f;
var z:f;
var e:string;
var d:integer;
begin

AssignFile(outfile,'base.txt');
append(outfile);
z.fam:=edit1.Text;
z.name:=edit2.Text;
z.mat:=edit3.Text;
z.engl:=edit4.Text;
z.inf:=edit5.Text;
write(outfile,z);

closefile(outfile);

Автор: VICTAR 23.3.2008, 02:23

Код


   AssignFile(outfile,'base.txt');
   Reset(outfile);
   Seek(outfile, FileSize(outfile));
   ...

Добавлено через 3 минуты и 7 секунд
PS Append только для TextFile

Автор: dembel 23.3.2008, 02:33

VICTAR, Спасибо большое

Автор: VICTAR 23.3.2008, 02:34

Не за что =)
Закрой тему.