Вопрос по использованию системной даты в программе Опции

[1147]

В программе нужно постоянно вводить текущую дату в dbedit1. Видел такой вариант, когда вместо того чтобы вводить дату самому, при нажатии пробела автоматически вводится сначала число, затем при втором нажатии пробела - месяц, при третьем год и сразу же переход курсора в dbedit2. Т.е. программа берет системную дату и помещает ее в нужное поле. Подскажите пожалуйста, как реализовать такой вариант???

[volvo]

К примеру, так:

uses DateUtils;
// ...
procedure TForm1.DBEdit1KeyPress(Sender: TObject; var Key: Char);
var curr: TDbEdit;
begin
  if Key = #32 then begin
    curr := Sender as TDbEdit;
    case Length((Sender as TDbEdit).Text) of
      0: curr.Text := Format('%2d/', [DayOf(Now)]);
      3: curr.Text := curr.Text + Format('%2d/', [MonthOf(Now)]);
      6: curr.Text := curr.Text + Format('%4d', [YearOf(Now)]);
    end;
    curr.SelStart := Length(curr.Text);
    curr.SelLength := 0;
    Key := #0;
  end;
end;

Это - само заполнение нажатиями пробелов, ну, а после заполнения, уж сам перекинь фокус на другой компонент...

[1147]

а можно пояснить строки?:

      0: curr.Text := Format('%2d/', [DayOf(Now)]);
      3: curr.Text := curr.Text + Format('%2d/', [MonthOf(Now)]);
      6: curr.Text := curr.Text + Format('%4d', [YearOf(Now)]);

что означает 0, 3 и 6 вначале? и значения с процентами? Данные в квадратных скобках воспринимаются программой как undecleared identifier 'DayOf', 'MonthOf', 'YearOf'

Сообщение отредактировано: 1147 - 28.06.2009 0:52