файлы, файлы Опции

[maklir]

как переписать информацию и неформатног record файла, в форматный text файл?

[andriano]

На компилируемость не проверял, но примерно так:

repeat
  blockread(FileIn,MyRecord,sizeof(MyRecord));
  writeln(FileOut,MyRecord.Item1,' ',MyTrcord.Item2,' ',MyRecord.Item3);
until eof(FileIn);

Это для тиа файла file, если файл типа file of MyRecord, то:

  read(FileIn,MyRecord);

А что, что-то не так?


PS. Фрагменты эквивалентны в том смысле, что с одним и тем же файлом может работать с равным успехом ЛЮБОЙ из них. Т.е. в данном случае файл, созданных типизированным, можно открыть и читать как нетипизированный и наоборот.

Сообщение отредактировано: andriano - 4.01.2008 4:16