Формат даты в dbf таблицах

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

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

Ответить
Sergey_Afanasyev
новенький
Сообщения: 49
Зарегистрирован: 22.02.2012 19:30:27

Формат даты в dbf таблицах

Сообщение Sergey_Afanasyev »

В программе на Лазаре для Windows дата в соответствующих полях dbf таблицы отображалась в полном виде чч.мм.гггг, как это и задается в установках Windows. При переходе на Лазарь для UBUNTU даты в этих полях приобрели сокращенный вид типа ч-м-гг. Как сделать чтобы дата отображалась в полном виде ?
Аватара пользователя
Снег Север
долгожитель
Сообщения: 3071
Зарегистрирован: 27.11.2007 15:14:47
Контактная информация:

Сообщение Снег Север »

задать в программе нужный shortdateformat
Sergey_Afanasyev
новенький
Сообщения: 49
Зарегистрирован: 22.02.2012 19:30:27

Сообщение Sergey_Afanasyev »

Т.е. где-то нужно написать: ShortDateFormat := 'dd.mm.yyyy';
или переправить переправить имеющееся определение. Так где и как это сделать?
Аватара пользователя
Снег Север
долгожитель
Сообщения: 3071
Зарегистрирован: 27.11.2007 15:14:47
Контактная информация:

Сообщение Снег Север »

Да, прописать
DateSeparator := '.';
ShortDateFormat := 'dd.mm.yyyy';

например, в секции initialize модуля формы или прямо в .dpr файле.
Sergey_Afanasyev
новенький
Сообщения: 49
Зарегистрирован: 22.02.2012 19:30:27

Сообщение Sergey_Afanasyev »

В файле проекта Kadstu.lpr было написано

{$R *.res}
Var DateSeparator, ShortDateFormat: string;
Begin
DateSeparator := '.';
ShortDateFormat := 'dd.mm.yyyy';
RequireDerivedFormResource := True;
Application.Initialize;

И это не помогло.

Тогда эти новые строчки были удалены и записаны
в событии OnActivate формы и это тоже не помогло.

Попробовал не объявлять
Var DateSeparator, ShortDateFormat: string;
тогда транслятор не пропускает
Аватара пользователя
Снег Север
долгожитель
Сообщения: 3071
Зарегистрирован: 27.11.2007 15:14:47
Контактная информация:

Сообщение Снег Север »

уберите из .lpr
Var DateSeparator, ShortDateFormat: string;

добавьте в uses
SysUtils,
и напишите так:
DefaultFormatSettings.DateSeparator := '.';
DefaultFormatSettings.ShortDateFormat := 'dd.mm.yyyy';
Sergey_Afanasyev
новенький
Сообщения: 49
Зарегистрирован: 22.02.2012 19:30:27

Сообщение Sergey_Afanasyev »

Огромное спасибо! Теперь получилось.
Ответить