[Phedor]

Сообщение от 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;