LiveBindings, Verwendung u.a. von TListBindSourceAdapter

[haentschman]

Hallöle...

Ich mache meine ersten Schritte mit LiveBindings... bitte seid nett.

Was ich vorhabe:
Meine Anwendung hat als Datenhaltung reichlich generische Listen die von der DB gefüllt werden. Um die Schreibarbeit mit der Anbindung der Objekte übersichtlicher zu gestalten wollte ich mit LiveBindings arbeiten.

Dazu habe ich mir ein Testprojekt erstellt. Nach ein wenig lesen habe ich die Liste in die ListView bekommen. *schwitz*

Nur eine Sache kiege ich nicht hin:

1. Nur wenn ich die lokal deklarierte Liste ausschließlich im CreateAdaper erzeuge und ausfülle sind die Daten sichtbar.
2. Wenn ich die gefüllte Liste von außen, z.B. im constructor, übergebe ist die ListView leer.

Wo liegt der Denkfehler?

Testcode:

Delphi-Quellcode:

unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages,
  System.SysUtils, System.Variants, System.Classes, System.Generics.Collections, System.Generics.Defaults,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Data.Bind.Components, Data.Bind.ObjectScope, Data.Bind.GenData, Data.Bind.EngExt,
  Vcl.Bind.DBEngExt, System.Rtti, System.Bindings.Outputs, Vcl.Bind.Editors, Vcl.ComCtrls;

type
  TBlubb = class
  private
    FID: Integer;
    FDatum: TDateTime;
    FText: string;
    FCheck: Boolean;
  public
    property ID: Integer read FID write FID;
    property Text: string read FText write FText;
    property Datum: TDateTime read FDatum write FDatum;
    property Check: Boolean read FCheck write FCheck;
  end;

  TForm2 = class(TForm)
    edt1: TEdit;
    lbl1: TLabel;
    chk1: TCheckBox;
    binadp1: TAdapterBindSource;
    lv1: TListView;
    bndlst1: TBindingsList;
    genadp1: TDataGeneratorAdapter;
    linproCaption: TLinkPropertyToField;
    lnkcon1: TLinkControlToField;
    lincon1: TLinkFillControlToField;
    linproChecked: TLinkPropertyToField;
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure binadp1CreateAdapter(Sender: TObject; var ABindSourceAdapter: TBindSourceAdapter);
  private
    FList: TObjectList<TBlubb>;
    FBlubb: TBlubb;
  public

  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.binadp1CreateAdapter(Sender: TObject; var ABindSourceAdapter: TBindSourceAdapter);
begin
  FList := TObjectList<TBlubb>.Create(True); // mußte hierher verschoben werden weil FormCreate nach dem CreateAdapter gefeuert wird. Sonst ist die Instanz nil.

  FBlubb := TBlubb.Create;
  FBlubb.ID := 100;
  FBlubb.Text := 'BLA';
  FBlubb.Datum := Now;
  FBlubb.Check := True;

  FList.Add(FBlubb);

  ABindSourceAdapter := TListBindSourceAdapter<TBlubb>.Create(self, FList);
end;

procedure TForm2.FormCreate(Sender: TObject);
begin

//  FBlubb := TBlubb.Create;
//  FBlubb.ID := 100;
//  FBlubb.Text := 'BLA';
//  FBlubb.Datum := Now;
//  FBlubb.Check := True;
//
//  FList.Add(FBlubb);
end;

procedure TForm2.FormDestroy(Sender: TObject);
begin
  FList.Free;
end;

end.