[makgrec]

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

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

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

Код:

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

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

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