Формат даты в TDateEdit

Вопросы программирования и использования среды Lazarus.

Модератор: Модераторы

Ответить
Climber
постоялец
Сообщения: 415
Зарегистрирован: 03.06.2007 20:09:57
Откуда: Москва

Формат даты в TDateEdit

Сообщение Climber »

Подскажите пожалуйста человеку, развращенному ораклом и не трогавшему Lazarus года три...
Как задается формат даты и можно ли его менять каким-либо простым способом? Сейчас попробовал использовать этот компонент в Убунте, там формат даты "DD-MM-YY", как поменять - не нашел, в поиске нашел рекомендации взять какие-нибудь сторонние компоненты...
kosteek
постоялец
Сообщения: 203
Зарегистрирован: 24.07.2008 14:57:09
Откуда: Украина, г.Славянск

Сообщение kosteek »

Код: Выделить всё

procedure TForm1.FormCreate(Sender: TObject);
begin
  DateSeparator:='.';
  ShortDateFormat:='dd.mm.yyyy';
end;

procedure TForm1.DateEdit1Change(Sender: TObject);
begin
  DateEdit1.Text:=DateTimeToStr(dateEdit1.Date);
end;

или

Код: Выделить всё

procedure TForm1.DateEdit1Change(Sender: TObject);
begin
  DateEdit1.Text:=FormatDateTime('dd.mm.yyyy',dateEdit1.Date);
end;
Climber
постоялец
Сообщения: 415
Зарегистрирован: 03.06.2007 20:09:57
Откуда: Москва

Сообщение Climber »

Спасибо.
Ответить