學習紀錄

1. TPrototypeBindSource 自行定義欄位屬性後

撰寫一些程式碼 

新增一個Object 

TLvDate = class(Tobject)
  private
    FA2: String;
    FA1: String;
    FA3: String;
    procedure SetA1(const Value: String);
    procedure SetA2(const Value: String);
    procedure SetA3(const Value: String);

  published
    Property A1: String read FA1 write SetA1;
    Property A2:String  read FA2 write SetA2;
    Property A3:String  read FA3 write SetA3;
  end;

宣告一個全域變數

  public
    LvDateList : TObjectList<TLvDate>;

最後給予資料值

procedure TForm1.PrototypeBindSource1CreateAdapter(Sender: TObject;
  var ABindSourceAdapter: TBindSourceAdapter);
VAR
  LvDate : TLvDate;
begin
  LvDateList := TObjectList<TLvDate>.create ;

    LvDate := TLvDate.Create;
    LvDate.A1 := '1';
    LvDate.A2 := '飲料';
    LvDate.A3 := '紅茶';
    LvDateList.Add(LvDate);

    LvDate := TLvDate.Create;
    LvDate.A1 := '2';
    LvDate.A2 := '飲料';
    LvDate.A3 := '綠茶';
    LvDateList.Add(LvDate);

    LvDate := TLvDate.Create;
    LvDate.A1 := '3';
    LvDate.A2 := '主食';
    LvDate.A3 := '義大利麵';
    LvDateList.Add(LvDate);

  ABindSourceAdapter := TListBindSourceAdapter<TLvDate>.Create(Self, LvDateList, True);
end;

完成了。你就可以取代他預設的範例資料。.....

接著我們會使用Livebinding 來做關聯

很重要的地方是 資料來源的* 一定要對應著你相對應的容器的Synch 否則會沒辦法連動。

但如果只是觀賞資料的話 可以不需要做連結即可使用。

假設你的資料庫都都是文字，但在設計上你想要用文字對應圖片。是需要先將資料取出來，然後判斷值之後給予相對應的圖片，可以利用這個來製作。