Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Синтаксис
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 18.11.2015, 11:27
Аватар для makgrec
makgrec makgrec вне форума
Прохожий
 
Регистрация: 10.11.2015
Сообщения: 13
Версия Delphi: 7
Репутация: 10
Радость Преобразование текущей даты в сроку

Необходимо в программу добавить текущую дату и перевести ее в строку, что бы это строка изменялась в соответствии с датой. ДАТУ необходимо разбить на день , месяц , год. что бы ее можно было использовать отдельно. Пробовал реализовывать задавал переменные и выводи их. все получалось, но в дата которая была преобразована в строку не меняла свое значение. В таймер засовывал выдает ошибку.
Ответить с цитированием
  #2  
Старый 18.11.2015, 19:58
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,721
Репутация: 52347
По умолчанию

Ну вот вам извращение с датой:
Код:
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;
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием
  #3  
Старый 19.11.2015, 11:49
Аватар для makgrec
makgrec makgrec вне форума
Прохожий
 
Регистрация: 10.11.2015
Сообщения: 13
Версия Delphi: 7
Репутация: 10
По умолчанию

Спасибо за извращение. Решил проблему самостоятельно.
Ответить с цитированием
  #4  
Старый 19.11.2015, 19:27
Аватар для Admin
Admin Admin вне форума
Администратор
 
Регистрация: 03.10.2005
Адрес: Россия, Москва
Сообщения: 1,560
Версия Delphi: Delphi 7
Репутация: выкл
По умолчанию

Цитата:
Сообщение от makgrec
Спасибо за извращение. Решил проблему самостоятельно.
У нас (да и не только) принято выкладывать найденное решение на общее обозрение, чтобы и другие пользователи могли им воспользоваться, тем более, если пишешь, что предложенный кем-то вариант не устраивает
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 22:57.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter