[решено] Формат даты и времени

[crindlok]

Здравствуйте, у меня простая задача, присвоить в тэдиты время и дату.


Edit1.Text := DateToStr(Date);
Edit2.Text := TimeToStr(Time);


Работает, но дело в том, что сепаратор в дате мне нужен / и год в двухциферном виде. Например, 03.02.13. А время требуется без секунд.

Уже смотрел DateFormat, DateSeparator, ShortDateFormat и т.д. Второй час сижу, запутался. Подскажите пожалуйста.

[Любезный]

Попробуй так.

var FS: TFormatSettings;
...
GetLocaleFormatSettings (0, FS);
FS.DateSeparator:='/';
FS.ShortDateFormat:='DD/MM/YY';
FS.LongTimeFormat:='HH:mm';
Edit1.Text:=DateToStr (Date, FS);
Edit2.Text:=TiimeToStr (Time, FS);

[crindlok]

Огромное спасибо!