25.06.2008, 14:02
|
Начинающий
|
|
Регистрация: 28.02.2008
Сообщения: 118
Репутация: 21
|
|
Цитата:
Сообщение от friz
как дописать инфу в типизированный файл(тип простая запись), стандартная процедура append работает только для текстовых файлов...а какой процедурой за писать в типизированный??
|
Код:
type
TType = record
Id: Integer;
Name: string[60];
end;
var
r: TType;
f: file of TType;
begin
assign(f, 'Файлик.dat');
reset(f);
...
read(f, r);
...
write(f, r);
...
close(f);
end;
|