как записать record в файл

[Kn793]

Здравствуйте!
Поскажите, как можно записать record в файл, или просто разные типы данных в один файл

[Arigato]

Можно использовать нетипизированные файлы (BlockWrite) или так:

H: Integer;
begin
  H := FileOpen (FileName, fmOpenWrite);
  FileWrite (H, RecVar, SizeOf (RecVar);
  FileClose (H);
end;

Где RecVar - Ваша запись.

[eoln]

Или по старинке с типизированными файлами

type RecVar = record
  s: string[10];
  b: boolean;
  i: integer;
  ...
end;
var
  r: RecVal;
  f: file of RecVal;
begin
  assignfile(f, 'имя_файла');
  reset(f);
  seek(f, filesize(f));//перемещение на позицию (например в конец)
  write(f, r);
  closefile(f)
end.

[Kn793]

eoln, хм, работает, странно. reset же вроде для чтения данных.
А вообще спасибо, то, что нужно!

[Arigato]

Kn793
Reset открывает файл и устанавливает указатель на начало файла, а Rewrite создает пустой файл.
В остальном они идентичны.

[Stilet]

reset же вроде для чтения данных.

Это правиль помоему работает (работало) только для типа TextFile