Web Application 開 發 利 器 - WebSnap（七）(2…

AdapterField ， 一 個 用 來 顯 示 站 名 ， 另 一 個 則 用 來 顯 示 URL ， 完 成 後 我 們 就 可 以 開 始 撰 寫 處 理 的 程 式 碼 ， 由 於 我 們 的 目 的 是 要 使 用 TAdapterGrid 來 顯 示 TStringsValueList 中 的 資 料 。 因 此 我 們 得 撰 寫 TAdapter.OnIterateRecords 這 個 事 件 ， 並 且 在 裡 面 移 動 TStringsValueList 的 記 錄 指 標 :

procedure TMyAdapter.Adapter1IterateRecords(Sender: TObject;

Action: TIteratorMethod; var EOF: Boolean);

var

Intf:IIteratorSupport;

P:Pointer;

begin

Intf:=svSite as IIteratorSupport;

case Action of

itStart:

Intf.StartIterator(P);

itNext :

EOF:=not Intf.NextIteration(P);

itEnd :

begin

Intf.EndIterator(P);

EOF:=True;

end;

end;

end;

在 這 個 事 件 中 我 們 使 用 了 一 個 介 面 :IIteratorSupport ， 實 作 這 個 介 面 代 表 著 該 元 件 支 援 游 標 型 態 的 操 作 。 接 著 我 們 要 撰 寫 AdapterField 中 的 OnGetValue ， 提 供 TStringsValueList 中 的 字 串 給 TAdapterGrid 使 用 :

procedure TMyAdapter.AdaptSiteNameGetValue(Sender: TObject;

var Value: Variant);

begin

Value:=AdaptNameField.Value;

end;

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有