[makgrec]

Необходимо в программу добавить текущую дату и перевести ее в строку, что бы это строка изменялась в соответствии с датой. ДАТУ необходимо разбить на день , месяц , год. что бы ее можно было использовать отдельно. Пробовал реализовывать задавал переменные и выводи их. все получалось, но в дата которая была преобразована в строку не меняла свое значение. В таймер засовывал выдает ошибку.

[Страдалецъ]

Ну вот вам извращение с датой:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45

type   TDateRec = record    Date: Array[0..2] of String;   private    function GetDate(const Index: Integer): String;   public    property Day: String index 0 read GetDate;    property Month: String index 1 read GetDate;    property Year: String index 2 read GetDate;   end;     TForm8 = class(TForm)     Timer1: TTimer;     procedure Timer1Timer(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form8: TForm8;   implementation   {$R *.dfm}   procedure TForm8.Timer1Timer(Sender: TObject); Var DateRec: TDateRec; begin  Caption := DateRec.Day + '.' + DateRec.Month + '.'+ DateRec.Year; end;   { TDate }   function TDateRec.GetDate(const Index: Integer): String; Var FS: TFormatSettings; begin  FS.ShortDateFormat := 'ddmmyyyy';  case Index  of 0: Result := Copy(DateToStr(Now, FS), 1, 2);     1: Result := Copy(DateToStr(Now, FS), 3, 2);     2: Result := Copy(DateToStr(Now, FS), 5, 4);  end; end;

[makgrec]

Спасибо за извращение. Решил проблему самостоятельно.

[Admin]

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

Спасибо за извращение. Решил проблему самостоятельно.

У нас (да и не только) принято выкладывать найденное решение на общее обозрение, чтобы и другие пользователи могли им воспользоваться, тем более, если пишешь, что предложенный кем-то вариант не устраивает