unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, StdCtrls, ExtCtrls, ComCtrls;

type
  TForm3 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Memo1: TMemo;
    ListView1: TListView;
    Timer1: TTimer;
    procedure Panel2Resize(Sender: TObject);
    procedure Panel1Resize(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure add_term_to_listview;
  end;
var
   form3:TForm3;

implementation

uses TermSet, term, Unit1;

{$R *.dfm}

procedure TForm3.Panel2Resize(Sender: TObject);
begin
    self.Memo1.Top:=10;
    self.Memo1.Left:=10;
    self.Memo1.Width:=self.Panel2.Width-20;
    self.Memo1.Height:=self.Panel2.Height-20;
end;

procedure TForm3.Panel1Resize(Sender: TObject);
begin
    self.ListView1.Top:=10;
    self.ListView1.Left:=10;
    self.ListView1.Width:=self.Panel1.Width-20;
    self.ListView1.Height:=self.Panel1.Height-20;
end;

procedure TForm3.add_term_to_listview;
var
    i:integer;
    listitem:TListItem;
     term_obj:TTerm;
begin
    ListView1.Clear;
    for i:=0 to mainform.term_set.members.Count-1 do
    begin
        term_obj:=TTerm(mainform.term_set.members.Items[i]);
        listitem:=ListView1.Items.Add;
        listitem.Caption:=inttostr(term_obj.gprs_id);
        listitem.SubItems.Add(inttostr(term_obj.term_id));
        listitem.SubItems.Add(inttostr(term_obj.app_id));
        listitem.SubItems.Add(inttostr(term_obj.packet_inteval));
        listitem.SubItems.Add(inttostr(term_obj.summit_type));
        listitem.SubItems.Add(inttostr(term_obj.second_count));
    end;
end;

procedure TForm3.Timer1Timer(Sender: TObject);
begin
    self.add_term_to_listview;
end;

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    form3_show:=false;
    action:=cafree;
    //mainform.Close;
end;

end.