arraylist与web 控件的绑定

最新推荐文章于 2024-06-06 12:32:57 发布

转载最新推荐文章于 2024-06-06 12:32:57 发布 · 488 阅读

文章标签：

#web #integer

ECO 专栏收录该内容

4 篇文章

订阅专栏

本文介绍了一个使用Delphi编写的支付系统数据加载过程。该过程通过双重循环创建了多个TPayment实例，并将它们添加到FPaymentList中。每个TPayment实例包含具体的支付信息，如支付方式等。最后，将数据绑定到dgPayments组件。

procedure TfrmPayment.LoadPayments;
var
  i, j: integer;
  aPayment: TPayment;
begin
  FBalance := 150;
  FBondBalance := 250;

  for i := 0 to 4 do
  begin
    for j := 0 to 2 do
    begin
      aPayment := TPayment.Create;
     aPayment.Staff := 'Dick Walker';
      aPayment.Tender := 'CASH';
      aPayment.Customer := 'Mike Smith';
        aPayment.IsBond := false;
      aPayment.NewPayment := false;
      FPaymentList.Add(aPayment);
    end;
  end;
end;
// ArrayList loaded with data before being bound.

最关键的是arraylist是静态的,它的元素类型是system.object,绑定时要转化为对象数组类型

dgPayments.DataSource=(TPayment[])arrayList.ToArray(typeof(TPayment));