Избегание шаблонного диалога в Delphi и / или C ++
-
08-07-2019 - |
Вопрос
Мне часто приходится создавать диалоговое окно в Delphi / C ++ Builder, которое позволяет изменять различные свойства объекта, и код для его использования обычно выглядит следующим образом.
Dialog.Edit1.Text := MyObject.Username;
Dialog.Edit2.Text := MyObject.Password;
// ... many more of the same
if (Dialog.ShowModal = mrOk)
begin
MyObject.Username := Dialog.Edit1.Text;
MyObject.Password := Dialog.Edit2.Text;
// ... again, many more of the same
end;
Мне также часто нужен аналогичный код для сортировки объектов в / из xml / ini-файлов / чего угодно.
Существуют ли какие-либо распространенные идиомы или методы, позволяющие избежать такого рода простого, но повторяющегося кода?
Решение
что ж, кое-что, что я считаю совершенно бесценным, - это Эксперты мастер плагинов "Reverse Statement", который вызывается после установки GExperts нажатием Shift + ALT + R
Что он делает, так это автоматически переключает назначения для выделенного блока.Например:
edit1.text := dbfield.asString;
становится
dbField.asString := edit1.text;
Не совсем то, что вы ищете, но это значительно экономит время, когда у вас большое количество заданий.
Другие советы
Вот мой вариант этого. То, что я сделал, сыт по горло одним и тем же повторяющимся кодом, заключалось в том, чтобы назвать все поля редактирования в соответствии с именами узлов XML, которые я хотел, затем перебрать компоненты и вывести их значения. Код XML должен быть очевидным, и у меня есть только поле редактирования и флажок, но вы должны увидеть идею.
procedure TfrmFTPSetup.LoadFromXML(szFileName : string);
var
xComponent : TComponent;
nLoop : Integer;
xMainNode : TXmlNode;
xDocument : TNativeXml;
begin
inherited;
xDocument := TNativeXml.Create;
try
xDocument.LoadFromFile(szFileName);
xMainNode := xml_ChildNodeByName(xDocument.Root, 'options');
for nLoop := 0 to ComponentCount - 1 do
begin
xComponent := Components[nLoop];
if xComponent is TRzCustomEdit then
begin
(xComponent as TRzCustomEdit).Text := xMainNode.AttributeByName[xComponent.Name];
end;
if xComponent is TRzCheckBox then
begin
(xComponent as TRzCheckBox).Checked := xml_X2Boolean(xMainNode.AttributeByName[xComponent.Name], false);
end;
end;
finally
FreeAndNil(xDocument);
end;
end;
procedure TfrmFTPSetup.SaveToXML(szFileName : string);
var
xComponent : TComponent;
nLoop : Integer;
xMainNode : TXmlNode;
xDocument : TNativeXml;
begin
inherited;
xDocument := TNativeXml.CreateName('ftpcontrol');
try
xMainNode := xml_ChildNodeByNameCreate(xDocument.Root, 'options');
for nLoop := 0 to ComponentCount - 1 do
begin
xComponent := Components[nLoop];
if xComponent is TRzCustomEdit then
begin
xMainNode.AttributeByName[xComponent.Name] := (xComponent as TRzCustomEdit).Text;
end;
if xComponent is TRzCheckBox then
begin
xMainNode.AttributeByName[xComponent.Name] := xml_Boolean2X((xComponent as TRzCheckBox).Checked);
end;
end;
xDocument.XmlFormat := xfReadable;
xDocument.SaveToFile(szFileName);
finally
FreeAndNil(xDocument);
end;
end;
Не считается хорошей практикой доступ к свойствам визуальных компонентов в форме. Считается, что лучше иметь отдельные свойства. В приведенном выше примере вы будете иметь свойства username и password с методами get и set. Р>
Например:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
private
function GetPassword: string;
function GetUsername: string;
procedure SetPassword(const Value: string);
procedure SetUsername(const Value: string);
public
property Password: string read GetPassword write SetPassword;
property Username: string read GetUsername write SetUsername;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function TForm1.GetPassword: string;
begin
Result := Edit2.Text;
end;
function TForm1.GetUsername: string;
begin
Result := Edit1.Text;
end;
procedure TForm1.SetPassword(const Value: string);
begin
Edit2.Text := Value;
end;
procedure TForm1.SetUsername(const Value: string);
begin
Edit1.Text := Value;
end;
end.
Это означает, что вы можете изменять визуальные компоненты в форме, не влияя на вызывающий код.
Другой вариант - передать объект как свойство в диалоговое окно;
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TUserObject = class(TObject)
private
FPassword: string;
FUsername: string;
public
property Password: string read FPassword write FPassword;
property Username: string read FUsername write FUsername;
end;
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
btnOK: TButton;
procedure btnOKClick(Sender: TObject);
private
FUserObject: TUserObject;
procedure SetUserObject(const Value: Integer);
public
property UserObject: Integer read FUserObject write SetUserObject;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btnOKClick(Sender: TObject);
begin
FUserObject.Username := Edit1.Text;
FUserObject.Password := Edit2.Text;
ModalResult := mrOK;
end;
procedure TForm1.SetUserObject(const Value: Integer);
begin
FUserObject := Value;
Edit1.Text := FUserObject.Username;
Edit2.Text := FUserObject.Password;
end;
end.
Надеюсь, это поможет.
Delphi по крайней мере имеет 'With', хотя это не решает проблему полностью.
if (Dialog.ShowModal = mrOk)
begin
with MyObject do
begin
Username := Dialog.Edit1.Text;
Password := Dialog.Edit2.Text;
// ... again, many more of the same
end;
end;
И у строителя AFAIK нет ничего похожего.
Привязка элементов управления к данным хорошо работает в Delphi, но, к сожалению, только тогда, когда эти данные находятся в потомке TDataSet. Вы могли бы написать потомка TDataSet, который использует объект для хранения данных, и оказалось, что одна такая вещь уже существует. См. Ссылку ниже ... Эта реализация, похоже, работает только с коллекциями объектов (TCollection или TObjectList), а не с отдельными объектами.
http://www.torry.net/pages.php?id=563 - найдите на странице " Набор данных объекта привязки "
У меня нет личного опыта с этим, но было бы очень полезно, если бы он работал, особенно если он также работал бы с единичными экземплярами объекта, такими как свойство в модуле данных ...
Посмотрите " шаблон посредника " ;. Это шаблон проектирования GoF, и в своей книге GoF фактически мотивирует этот шаблон проектирования в ситуации, несколько схожей с тем, что вы здесь описываете. Он направлен на решение другой проблемы - связывание - но я думаю, что у вас все равно есть эта проблема.
Короче говоря, идея заключается в создании посредника диалога, дополнительного объекта, который находится между всеми виджетами диалога. Ни один виджет не знает ни о каком другом виджете, но каждый виджет знает посредника. Посредник знает все виджеты. Когда один виджет изменяется, он информирует посредника; Затем посредник информирует соответствующие виджеты об этом. Например, когда вы нажимаете «ОК», посредник может информировать другие виджеты об этом событии.
Таким образом, каждый виджет заботится о событиях и действиях, связанных только с самим собой. Посредник заботится о взаимодействии между всеми виджетами, так что все это «шаблон» код разделяется на все виджеты, и «остаток» глобальным для всех виджетов является взаимодействие, и оно является обязанностью посредника.