Формат отображения даты...

[Daniel]

Доброго времени суток.
Из MaskEdit беру дату и кладу ее в DBF`ку в поле типа Date. Во время написания программы в DBGrid`е дата с соответствующем поле DBF`ки отображаеться как нужно, а именно 01.01.2012. Когда запускаю скомпилированное приложение дата выглядит так: 1.1.12, и это ужас. Иногда нужно взять дату из DBF`ки и поместить в MaskEdit, так вот эта зараза возвращает значение 1.1.12 и MaskEdit виглядит как 1_-1_-12__.

Как сделать чтобы и отображалось и возвращалось значение в формате dd.mm.yyyy?
Заранее спасибо.

[leo_bsv]

определяете свои форматы как вам надо через переменную типа TFormatSettings

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

var
  LinuxFormatSettings : TFormatSettings = (
    CurrencyFormat: 3;
    NegCurrFormat: 8;
    ThousandSeparator: ' ';
    DecimalSeparator: '.';
    CurrencyDecimals: 2;
    DateSeparator: '-';
    TimeSeparator: ':';
    ListSeparator: ',';
    CurrencyString: 'р.';
    ShortDateFormat: 'yyyy-mm-dd';
    LongDateFormat: 'dd" "mmmm" "yyyy';
    TimeAMString: 'AM';
    TimePMString: 'PM';
    ShortTimeFormat: 'hh:nn';
    LongTimeFormat: 'hh:nn:ss';
    ShortMonthNames: ('Янв','Фев','Март','Апр','Май','Июнь',
                      'Июль','Авг','Сент','Окт','Нояб','Дек');
    LongMonthNames: ('Январь','Февраль','Март','Апрель','Май','Июнь',
                     'Июль','Август','Сентябрь','Октябрь','Ноябрь','Декабрь');
    ShortDayNames: ('Вс','Пн','Вт','Ср','Чт','Пт','Сб');
    LongDayNames:  ('Воскресенье','Понедельник','Вторник','Среда','Четверг',
                    'Пятница','Суббота');
    TwoDigitYearCenturyWindow: 50;
  );

затем используете функции и процедуры принимающие вашу переменную как параметр

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

function StrToDateTime(const s: ShortString; const UseFormat : TFormatSettings): TDateTime;
procedure DateTimeToString(out Result: string; const FormatStr: string; const DateTime: TDateTime; const FormatSettings: TFormatSettings);

[Daniel]

Спасибо, leo_bsv . Струдом, но разобрался

[leo_bsv]

Без труда не выловишь и рыбку из пруда. (с) Народная мудрость
Хотя вот это видео доказывает, что бывают и приятные исключения.