• Registered: 2017-05-30
  • Posts: 254

Topic: Значение по умолчанию в Edit

У меня на форме добавления/просмотра записи есть несколько полей Edit, которые не связаны с БД (их значения не сохраняются в БД).
Но, при этом, я для них установил определенное значение по умолчанию.
Когда эту форму открываю для добавления новой записи, то в этих полях как положено отображаются значения по умолчанию.
Однако, когда эту форму открываю для просмотра(редактирования) записи, то эти Editы пустые.
Значение по умолчанию в них не отображается.
Идеологически понятно почему так происходит, но есть ли способ отображать в этих полях значения по умолчанию, указанные в среде разработки даже когда открыли форму для редактирования?
Или единственный способ - явно в коде программы присваивать нужные значения этим полям?

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Значение по умолчанию в Edit

Можно так

procedure frmAbonent_OnShow (Sender: TObject; Action: string);
begin
    frmAbonent.edFirstName.Text := frmAbonent.edFirstName.dbDefaultValue;
end;
Dmitry.
  • Registered: 2017-05-30
  • Posts: 254

Re: Значение по умолчанию в Edit

Да, это отлично работает.
А есть ли способ автоматически перебрать множество всех Edit на форме и, полям не имеющих связи с БД, присвоить их dbDefaultValue?
Хочется иметь какое то универсальное решение, т.к. таких форм и полей много.

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Значение по умолчанию в Edit

procedure FillDefaultValue(Form: TAForm);
var
    i, c: integer;
begin
    c := Form.ComponentCount-1;
    for i := 0 to c do
        if Form.Components[i] is TdbEdit then TdbEdit(Form.Components[i]).Text := TdbEdit(Form.Components[i]).dbDefaultValue;
end;

// как использовать
procedure frmAbonent_OnShow (Sender: TObject; Action: string);
begin
    FillDefaultValue(frmAbonent);
end;
Dmitry.