Livebinding Listbox保持为空，Grid已填充

Question

使用Delphi Seattle，我试图在当前项目中掌握实时绑定的窍门，并创建了一个带有外部填充TFDMemTable的表单。memTable连接到TGrid和TListbox。网格显示所有信息，但列表框保持为空。

我做错了什么？

代码(根据实际情况简化，但仍显示空列表框)：

unit Unit1;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, System.Rtti, FireDAC.Stan.Intf,
FireDAC.Stan.Option, FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.DApt.Intf,
FireDAC.Stan.StorageBin, Data.Bind.EngExt, Fmx.Bind.DBEngExt, Fmx.Bind.Grid, System.Bindings.Outputs,
Fmx.Bind.Editors, Data.Bind.Components, Data.Bind.Grid, FMX.ListBox, Data.Bind.DBScope, Data.DB, FireDAC.Comp.DataSet,
FireDAC.Comp.Client, FMX.Layouts, FMX.Grid, FMX.Types, FMX.Controls, FMX.Controls.Presentation, FMX.StdCtrls,
FMX.Forms;
type
TForm1 = class(TForm)
fdmAccounts: TFDMemTable;
fdmAccountscode: TStringField;
fdmAccountsdesc: TStringField;
bsAccounts: TBindSourceDB;
Grid1: TGrid;
BindingsList1: TBindingsList;
ListBox1: TListBox;
LinkGridToDataSourcebsAccounts: TLinkGridToDataSource;
LinkFillControlToField1: TLinkFillControlToField;
procedure FormCreate(Sender: TObject);
private
FItemlist: TStringlist;
procedure Refreshlist(Sender: TObject);
procedure UpdateAccounts(afilter: string);
end;
var
Form1: TForm1;
implementation
{$R *.fmx}
procedure TForm1.UpdateAccounts(aFilter: string);
var
s: string;
begin
with fdmAccounts do
begin
EmptyDataSet;
for s in FItemList do
begin
if aFilter.IsEmpty or s.Contains(aFilter) then
InsertRecord([s, '']);
end;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
FItemlist := TStringList.Create;
FItemlist.Delimiter := ',';
Fitemlist.DelimitedText := 'item1, item2, ander item3, laatste item';
fdmAccounts.Open;
Refreshlist(nil);
end;
procedure TForm1.Refreshlist(Sender: TObject);
begin
UpdateAccounts('');
end;
end.

Livebinding定义：

object BindingsList1: TBindingsList
Methods = <>
OutputConverters = <>
Left = 164
Top = 237
object LinkGridToDataSourcebsAccounts: TLinkGridToDataSource
Category = 'Quick Bindings'
DataSource = bsAccounts
GridControl = Grid1
Columns = <>
end
object LinkFillControlToField1: TLinkFillControlToField
Category = 'Quick Bindings'
Control = ListBox1
Track = True
FillDataSource = bsAccounts
FillDisplayFieldName = 'desc'
AutoFill = True
FillExpressions = <>
FillHeaderExpressions = <>
FillBreakGroups = <>
end

结束

我还尝试将LinkFillControlToField1的FillExpression设置为：

FillExpressions = <
item
SourceMemberName = 'desc'
ControlMemberName = 'Text'
end>

但结果是一样的。。空列表框

Answer 1

更新：

希望，如果你遵循这个例子，这是我第二次尝试使用LiveBindings来填充TClientDataSet的ListBox，您应该能够它也起作用。您可能需要注意填充TStringGrid的问题，我在下面这个答案的原始版本中提到了这个问题。

DFM提取

object ListBox1: TListBox
Left = 8
Top = 320
Width = 121
Height = 97
ItemHeight = 13
TabOrder = 6
end
object DataSource1: TDataSource
DataSet = CDS1
Left = 128
Top = 24
end
object CDS1: TClientDataSet
Aggregates = <>
Params = <>
OnNewRecord = CDS1NewRecord
Left = 72
Top = 24
object CDS1ID: TIntegerField
FieldName = 'ID'
end
object CDS1Name: TStringField
FieldName = 'Name'
Size = 40
end
object CDS1Value: TStringField
FieldName = 'Value'
Size = 80
end
end
object BindSourceDB1: TBindSourceDB
DataSource = DataSource1
ScopeMappings = <>
Left = 216
Top = 32
end
object BindingsList1: TBindingsList
Methods = <>
OutputConverters = <>
Left = 72
Top = 96
object LinkListControlToField1: TLinkListControlToField
Category = 'Quick Bindings'
DataSource = BindSourceDB1
FieldName = 'Name'
Control = ListBox1
FillExpressions = <>
FillHeaderExpressions = <>
FillBreakGroups = <>
end
end

代码提取

procedure TForm1.FormCreate(Sender: TObject);
var
i : Integer;
begin
CDS1.IndexFieldNames := 'ID';
CDS1.CreateDataSet;
for i := 1 to 6 do begin
CDS1.Insert;
CDS1.FieldByName('Name').AsString := 'Name  ' + IntToStr(i);;
CDs1.FieldByName('Value').AsString := 'Value  ' + IntToStr(i);
CDS1.Post;
end;
CDS1.First;
StringGrid1.Invalidate;
end;
procedure TForm1.CDS1NewRecord(DataSet: TDataSet);
begin
Inc(NextID);
DataSet.FieldByName('ID').AsInteger := NextID;
end;

这次和我之前的尝试唯一不同的是

LinkListControlToField1: TLinkListControlToField

事实证明，我错误地认为TLinkListControlToField是TListViews，但它显然可以与TListView以及一起使用

最初发布的答案

我不确定你做错了什么，LiveBindings对我来说似乎很bug-请参阅我对这个问题的回答q:DDelphi TEdit，用Access过滤Tstringgrid。字符串网格显示ID为6的行是重复的，而不是ID为5的行，这一事实让我感到不太有希望，因为这是一个明显的问题。

我也无法让LiveBindings与ListBox一起工作，无论是在一个新的Seattle VCL项目中从头开始还是在本文之后http://edn.embarcadero.com/article/41707.这篇文章的几个问题之一是，它引用了一个"TBindScopeDB"组件，据我所见，它根本不存在。即使考虑到它可能是"TBindSourceDB"的拼写错误，当我尝试按照文章中的步骤进行操作时，我也不会得到所描述的结果，ListBox当然也不会被填充。

你可能想看看它提到的SourceForge VCL项目，https://radstudiodemos.svn.sourceforge.net/svnroot/radstudiodemos/branches/RadStudio_XE2/LiveBindings/bindlist.我自己还没有尝试过，但它看起来比我预期的要复杂得多，尽管我不知道这是否是因为它是针对XE2的，LiveBindings从那时起就开始了。我确实看过DFM，我从来没有想到Expression属性会被赋予它们的值，无论是从第一性原理还是它在文章中所说的。我试着在我的项目中使用它们，但ListBox一直是空的。