gpt4 book ai didi

Delphi Livebound 对象和组合框或单选按钮

转载 作者:行者123 更新时间:2023-12-02 02:37:23 28 4
gpt4 key购买 nike

我定义了业务逻辑的后续单元

unit Models.Person;

interface

Type
TPersonGender = (pgUndefined, pgMale, pgFemale, pgNotApplicable);

TSexOfPerson = class(TPersistent)
private
FGender : TPersonGender;
protected
function GetDescription : string;
function GetCode : string;
function GetIndex : integer;
public
constructor Create; overload;
constructor Create(const aValue : TGenderPerson); overload;
procedure Assign(Source: TPersistent); override;
property Gender : TGenderPerson read FGender write FGender;
property Description : string read GetDescription;
property Code : string read GetCode;
property Index : integer read GetIndex;
end;

TPerson = class(TPersistent)
private
FSex : TSexOfPerson;
FName : string;
FSurName : string;
FAddress : string;
protected
function GetSex : TPersonGender;
procedure SetSex(aGender : TPersonGender);
public
constructor Create; overload;
constructor Create(const aValue : TPerson); overload;
destructor Destroy; override;
procedure Assign(Source: TPersistent); override;
property Name : string read FName write FName;
property SurName : string read FSurName write FSurName;
property Address : string read FAddress write FAddress;
property Sex : TPersonGender read GetSex write SetSex
end;

implementation

{ TSexOfPerson }

constructor TSexOfPerson.Create;
begin
inherited Create;
FGender := pgUndefined;
end;

constructor TSexOfPerson.Create(const aValue : TPersonGender);
begin
inherited Create;
FGender := aValue
end;

procedure TSexOfPerson.Assign(Source: TPersistent);
begin
if Source is TSexOfPerson then
FGender := TSexOfPerson(Source).Gender
else
inherited Assign(Source)
end;

function TSexOfPerson.GetDescription;
begin
case FGender of
pgUndefined : Result := '<Undefined>';
pgMale : Result := 'Male';
pgFemale : Result := 'Female';
pgNotApplicable : Result := '<Not applicable>';
end
end;

function TSexOfPerson.GetIndex;
begin
Result := Ord(FGender)
end;

function TSexOfPerson.GetCodice;
begin
case FGender of
pgUndefined : Result := '';
pgMale : Result := 'M';
pgFemale : Result := 'F';
pgNotApplicable : Result := 'N'
end
end;

{ TPerson }

constructor TPerson.Create;
begin
inherited Create;
FSex := TSexOfPerson.Create(pgUndefined)
end;

constructor TPerson.Create(const aValue : TPerson);
begin
inherited Create;
FSex := TSexOfPerson.Create(aValue)
end;

destructor TPerson.Destroy;
begin
FSex.Free;
inherited Destroy
end;

procedure TPerson.Assign(Source: TPersistent);
begin
if Source is TPerson then
begin
FName := TPerson(Source).Name;
FSurName := TPerson(Source).SurName;
FAddress := TPerson(Source).Address;
FSex.Gender := TPerson(Source).Sex;
end
else
inherited Assign(Source)
end;

function GetSex : TPersonGender;
begin
Result := FSex.Gender
end;

procedure SetSex(aGender : TPersonGender);
begin
if FSex.Gender <> aGender then
FSex.Gender := aGender
end;

end.

现在我将设计一个用于编辑 TPerson 的表单,其中包含三个 TEdit 和一个 TCombobox 来选择性别。

如何对 TCombobox 使用双向实时绑定(bind)?

最佳答案

考虑到,复杂类和控件之间的实时绑定(bind)对于 Delphi 来说并不容易,为了简化,我认为适本地更改 TPerson 类,如下所示:

TPerson = class(TPersistent)
private
FSex : TSexOfPerson;
FName : string;
FSurName : string;
FAddress : string;
protected
function GetSex : TPersonGender;
procedure SetSex(aGender : TPersonGender);
public
constructor Create; overload;
constructor Create(const aValue : TPerson); overload;
destructor Destroy; override;
procedure Assign(Source: TPersistent); override;
property Name : string read FName write FName;
property SurName : string read FSurName write FSurName;
property Address : string read FAddress write FAddress;
property Sex : integer read GetSex write SetSex
end;

implementation

...

function TPerson.GetSex : integer;
begin
Result := FSex.Index
end;

procedure TPerson.SetSex (aValue : integer);
begin
if FSex.Integer <> aValue then
case aValue of
0 : FSex.MtsSesso := pgUndefined;
1 : FSex.MtsSesso := pgMale;
2 : FSex.MtsSesso := pgFemale;
3 : FSex.MtsSesso := pgNotApplicable;
end;
end;

procedure TPerson.Assign(Source: TPersistent);
begin
if Source is TPerson then
begin
FName := TPerson(Source).Name;
FSurName := TPerson(Source).SurName;
FAddress := TPerson(Source).Address;
case TPerson(Source).Sex of
0 : FSex.MtsSesso := pgUndefined;
1 : FSex.MtsSesso := pgMale;
2 : FSex.MtsSesso := pgFemale;
3 : FSex.MtsSesso := pgNotApplicable;
end;
end
else
inherited Assign(Source)
end;
...

下面我为TPerson定义了一个适配器:

type

TPersonsAdapter = class(TListBindSourceAdapter<TPerson>)
public
constructor Create(AOwner: TComponent); override;
end;

procedure Register;

...

constructor TPersonsAdapter.Create(AOwner: TComponent);
begin
inherited Create(AOwner);

//load Persons list
SetList(LoadPersons)
end;

procedure Register;
begin
RegisterComponents('CustomAdapters', [TPersonsAdapter]);
end;

在表单上,​​我放置了一个 TBindingList (BindingList1)、一个 TAdapterBindSource (PersonABS)、一个 TPersonsAdapter (PersonsAdapter) 和 4 个 TRadioButton;

比设置

PersonABS.Adapter := PersonsAdapter;
PersonABS.OnCreateAdapter := PersonABSCreateAdapter;

procedure TForm1.PersonABSCreateAdapter(Sender: TObject; var ABindSourceAdapter: TBindSourceAdapter);
begin
ABindSourceAdapter := TObjectBindSourceAdapter<TPerson>.Create(PersonABS, CurrentPerson, False);
ABindSourceAdapter.AutoPost := True;
end;

On BindingList1 component, create 4 TLinkPropertyToField one for each radiobutton and set the following as:

LinkPropertyToField1.Component := RadioButton1;
LinkPropertyToField1.ComponentProperty := IsChecked
LinkPropertyToField1.CustomFormat := 'IfThen(%s=0, True, False)';
LinkPropertyToField1.DataSource := PersonABS;
LinkPropertyToField1.FieldName := 'Sex';

LinkPropertyToField2.Component := RadioButton2;
LinkPropertyToField2.ComponentProperty := IsChecked
LinkPropertyToField2.CustomFormat := 'IfThen(%s=1, True, False)';
LinkPropertyToField2.DataSource := PersonABS;
LinkPropertyToField2.FieldName := 'Sex';

LinkPropertyToField3.Component := RadioButton3;
LinkPropertyToField3.ComponentProperty := IsChecked
LinkPropertyToField3.CustomFormat := 'IfThen(%s=2, True, False)';
LinkPropertyToField3.DataSource := PersonABS;
LinkPropertyToField3.FieldName := 'Sex';

LinkPropertyToField4.Component := RadioButton4;
LinkPropertyToField4.ComponentProperty := IsChecked
LinkPropertyToField4.CustomFormat := 'IfThen(%s=3, True, False)';
LinkPropertyToField4.DataSource := PersonABS;
LinkPropertyToField4.FieldName := 'Sex';

在每个 TRadioButton 上设置 onClick 事件,如下所示:

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
if not TRadioButton(Sender).IsChecked then
CurrentPerson.Sex := Ord(pgUndefined)
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
if not TRadioButton(Sender).IsChecked then
CurrentPerson.Sex := Ord(pgMale)
end;

procedure TForm1.RadioButton3Click(Sender: TObject);
begin
if not TRadioButton(Sender).IsChecked then
CurrentPerson.Sex := Ord(pgFemale)
end;

procedure TForm1.RadioButton4Click(Sender: TObject);
begin
if not TRadioButton(Sender).IsChecked then
CurrentPerson.Sex := Ord(pgNotApplicable)
end;

仅此而已。

我希望该解决方案足够强大并且更容易重申。

关于Delphi Livebound 对象和组合框或单选按钮,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/38661100/

28 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com