[Alegun]

Сообщение от specter_wind

Создать файл, содержащий записи о дате: день (1..31), месяц (1..12), год (1950..2002)...

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 Y,M,D : integer;
 dd    : word;
 dt    : TextFile;
begin
 AssignFile(dt, 'dt.txt');
 Rewrite(dt);
 for Y := 1950 to 2002 do
  for M := 1 to 12 do
   begin
    DecodeDate(EndOfAMonth(Y, M), dd, dd, dd);
    for D := 1 to dd do
     WriteLn(dt, FormatDateTime('dd:mm:yyyy', EncodeDate(Y, M, D)));
   end;
 CloseFile(dt);
end;