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

[maklir]

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

[мисс_граффити]

из описанного тобой п.4 можно было понять, что речь идет о записи по полям, а не целиком?

[andriano]

из описанного тобой п.4 можно было понять, что речь идет о записи по полям, а не целиком?

"Записать" и означает "записать" - любым доступным для данного ЯВУ и выбранного компилятора способом. Если компилятор не позволяет определить процедуру форматного преобразования для пользовательсткого типа, то только по полям. Если позволяет - можно и запись целиком.
Так что если не ставить знак равенства между "Задачи" и "Borland Pascal 7.0" (что, кстати, совсем не следует из условия), то вполне можно написать:

uses DOS;

procedure GetCurrentDate(var date: DateTime);
var
  Year, Month, Day, DayOfWeek: Word;
begin
  GetDate(Year, Month, Day, DayOfWeek);
  date.Year := Year;
  date.Month := Month;
  date.Day := Day;
end;

procedure __writer (var f: text; const value: DateTime; w: Integer);
const NameMonth : array[1..12]of string[3] = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');
begin
  with value do Write(f, Day, '-', NameMonth[Month], '-', Year);
end;

var
  date: DateTime;
begin
  GetCurrentDate(date);
  Writeln('Current Date: ',date);
end.

Вывод:

Current Date: 5-Jan-2008

Сообщение отредактировано: andriano - 5.01.2008 11:09