Nun die Frage ist, warum du überhaupt eine StringList da binden willst.
Eigentlich wird über das LB an ein ListControl eine Liste mit Objekten gebunden und eben keine StringList.
Währe also TObjectList<TMyFunObject> plus TBindadapterBindSource plus TDatageneratorAdapter richtig?
Und das TStrings nicht gehen dürfen ist für dich offensichtlich?
Für schnell gemacht kannst du ein
TPrototypeBindSource
auf die Form klatschen und im
TPrototypeBindSource.OnCreateAdapter
Delphi-Quellcode:
procedure TForm1.PrototypeBindSource1CreateAdapter( Sender: TObject; var ABindSourceAdapter: TBindSourceAdapter );
begin
FItems := TObjectList<TListViewItemViewModel>.Create;
ABindSourceAdapter := TListBindSourceAdapter<TListViewItemViewModel>.Create( Self, FItems, True );
end;
In dem
TPrototypeBindSource
kannst/musst du noch die Felder definieren, die dann auf die Objekt-Eigenschaften der Objekte in der Liste gemappt werden ...
Selbst wenn das mit der StringList gehen würde, würde ich das nicht nehmen wollen, denn dann müsste ich ja von dem String wieder auf den Kontext kommen.
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ea 0a 4c 14 0d b6 3a a4 c1 c5 b9
dc 90 9d f0 e9 de 13 da 60)