unitshowparam.pas

本目录内所有代码仅作指导用户编程之用,用户如果要作为 商业用途,建议使用正版软件进行编译. 开发环境说明： delphi demo : delphi 6.0 vc de

unit unitShowParam;

interface

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

type
  TFShowParam = class(TForm)
    ListView1: TListView;
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Bevel1: TBevel;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FShowParam: TFShowParam;

implementation

uses unitParam;

{$R *.dfm}

procedure TFShowParam.FormShow(Sender: TObject);
var
  ListItem: TListItem;
  i: integer;
  s: string;
  LineCount: Integer;
begin
  LineCount := 0;

  //服务设置
  if FParam.CheckBox7.Checked then begin
    ListItem := ListView1.Items.Add;
    ListItem.Caption := FParam.CheckBox7.Caption;
    ListItem.SubItems.Add(FParam.Edit1.Text);
  end;

  if FParam.CheckBox8.Checked then begin
    ListItem := ListView1.Items.Add;
    ListItem.Caption := FParam.CheckBox8.Caption;
    ListItem.SubItems.Add(FParam.Edit2.Text);
  end;

  if FParam.CheckBox9.Checked then begin
    ListItem := ListView1.Items.Add;
    ListItem.Caption := FParam.CheckBox9.Caption;
    s := '';
    for i := 1 to length(FParam.Edit3.Text) do
      s := s + '*';
    ListItem.SubItems.Add(s);
  end;

  if FParam.CheckBox10.Checked then begin
    ListItem := ListView1.Items.Add;
    ListItem.Caption := FParam.CheckBox10.Caption;
    ListItem.SubItems.Add(FParam.Edit4.Text);
  end;

  if FParam.CheckBox11.Checked then begin
    ListItem := ListView1.Items.Add;
    ListItem.Caption := FParam.CheckBox11.Caption;
    s := '';
    for i := 1 to length(FParam.Edit5.Text) do
      s := s + '*';
    ListItem.SubItems.Add(s);
  end;

  if ListView1.Items.Count > LineCount then begin
    ListView1.Items.Add;
    LineCount := ListView1.Items.Count;
  end;

  //dtu设置
  if FParam.CheckBox12.Checked then begin
    ListItem := ListView1.Items.Add;
    ListItem.Caption := FParam.CheckBox12.Caption;
    ListItem.SubItems.Add(FParam.Edit6.Text);
  end;

  if FParam.CheckBox13.Checked then begin
    ListItem := ListView1.Items.Add;
    ListItem.Caption := FParam.CheckBox13.Caption;
    ListItem.SubItems.Add(FParam.Edit7.Text);
  end;

  if FParam.CheckBox14.Checked then begin
    ListItem := ListView1.Items.Add;
    ListItem.Caption := FParam.CheckBox14.Caption;
    ListItem.SubItems.Add(FParam.Edit8.Text);
  end;

  if FParam.CheckBox15.Checked then begin
    ListItem := ListView1.Items.Add;
    ListItem.Caption := FParam.CheckBox15.Caption;
    ListItem.SubItems.Add(FParam.Edit9.Text);
  end;

  if FParam.CheckBox16.Checked then begin
    ListItem := ListView1.Items.Add;
    ListItem.Caption := FParam.CheckBox16.Caption;
    ListItem.SubItems.Add(FParam.Edit10.Text);
  end;

  if FParam.CheckBox17.Checked then begin
    ListItem := ListView1.Items.Add;
    ListItem.Caption := FParam.CheckBox17.Caption;
    ListItem.SubItems.Add(FParam.Edit12.Text);
  end;

  if FParam.CheckBox18.Checked then begin
    ListItem := ListView1.Items.Add;
    ListItem.Caption := FParam.CheckBox18.Caption;
    ListItem.SubItems.Add(FParam.Edit11.Text);
  end;

  if ListView1.Items.Count > LineCount then begin
    ListView1.Items.Add;
    LineCount := ListView1.Items.Count;
  end;

  //数据中心设置
  if FParam.CheckBox24.Checked then begin
    ListItem := ListView1.Items.Add;
    ListItem.Caption := FParam.CheckBox24.Caption;
    ListItem.SubItems.Add(FParam.Edit13.Text);
  end;

  if FParam.CheckBox25.Checked then begin
    ListItem := ListView1.Items.Add;
    ListItem.Caption := FParam.CheckBox25.Caption;
    ListItem.SubItems.Add(FParam.Edit14.Text);
  end;

  if FParam.CheckBox26.Checked then begin
    ListItem := ListView1.Items.Add;
    ListItem.Caption := FParam.CheckBox26.Caption;
    ListItem.SubItems.Add(FParam.Edit15.Text);
  end;

  if FParam.CheckBox27.Checked then begin
    ListItem := ListView1.Items.Add;
    ListItem.Caption := FParam.CheckBox27.Caption;
    ListItem.SubItems.Add(FParam.Edit16.Text);
  end;

  if FParam.CheckBox28.Checked then begin
    ListItem := ListView1.Items.Add;
    ListItem.Caption := FParam.CheckBox28.Caption;
    ListItem.SubItems.Add(FParam.ComboBox9.Text);
  end;

  if FParam.CheckBox21.Checked then begin
    ListItem := ListView1.Items.Add;
    ListItem.Caption := FParam.CheckBox21.Caption;
    ListItem.SubItems.Add(FParam.Edit20.Text);
  end;

  if FParam.CheckBox22.Checked then begin
    ListItem := ListView1.Items.Add;
    ListItem.Caption := FParam.CheckBox22.Caption;
    ListItem.SubItems.Add(FParam.Edit21.Text);
  end;

  if ListView1.Items.Count > LineCount then begin
    ListView1.Items.Add;
    LineCount := ListView1.Items.Count;
  end;

  //串口设置
  if FParam.CheckBox19.Checked then begin
    ListItem := ListView1.Items.Add;
    ListItem.Caption := FParam.Label1.Caption;
    ListItem.SubItems.Add(FParam.ComboBox8.Text);

    ListItem := ListView1.Items.Add;
    ListItem.Caption := FParam.Label2.Caption;
    ListItem.SubItems.Add(FParam.ComboBox5.Items[FParam.ComboBox5.ItemIndex]);

    ListItem := ListView1.Items.Add;
    ListItem.Caption := FParam.Label3.Caption;
    ListItem.SubItems.Add(FParam.ComboBox4.Items[FParam.ComboBox4.ItemIndex]);

    ListItem := ListView1.Items.Add;
    ListItem.Caption := FParam.Label4.Caption;
    ListItem.SubItems.Add(FParam.ComboBox2.Items[FParam.ComboBox2.ItemIndex]);

    ListItem := ListView1.Items.Add;
    ListItem.Caption := FParam.Label5.Caption;
    ListItem.SubItems.Add(FParam.ComboBox3.Items[FParam.ComboBox3.ItemIndex]);
  end;

  if ListView1.Items.Count > LineCount then begin
    ListView1.Items.Add;
    LineCount := ListView1.Items.Count;
  end;

  //特殊设置
  if FParam.CheckBox29.Checked then begin
    ListItem := ListView1.Items.Add;
    ListItem.Caption := FParam.CheckBox29.Caption;
    ListItem.SubItems.Add(FParam.Edit23.Text);
  end;

  if FParam.CheckBox30.Checked then begin
    ListItem := ListView1.Items.Add;
    ListItem.Caption := FParam.CheckBox30.Caption;
    ListItem.SubItems.Add(FParam.Edit24.Text);
  end;

  if FParam.CheckBox31.Checked then begin
    ListItem := ListView1.Items.Add;
    ListItem.Caption := FParam.CheckBox31.Caption;
    ListItem.SubItems.Add(FParam.Edit25.Text);
  end;

  if FParam.CheckBox32.Checked then begin
    ListItem := ListView1.Items.Add;
    ListItem.Caption := FParam.CheckBox32.Caption;
    ListItem.SubItems.Add(FParam.Edit26.Text);
  end;

  if FParam.CheckBox33.Checked then begin
    ListItem := ListView1.Items.Add;
    ListItem.Caption := FParam.CheckBox33.Caption;
    ListItem.SubItems.Add(FParam.Edit27.Text);
  end;

  if FParam.CheckBox2.Visible and FParam.CheckBox2.Checked then begin
    ListItem := ListView1.Items.Add;
    ListItem.Caption := FParam.CheckBox2.Caption;
    if FParam.ComboBox6.ItemIndex = 0 then
      ListItem.SubItems.Add('透明传输')
    else
      ListItem.SubItems.Add('协议传输');
  end;

  if FParam.CheckBox3.Visible and FParam.CheckBox3.Checked then begin
    ListItem := ListView1.Items.Add;
    ListItem.Caption := FParam.CheckBox3.Caption;
    if FParam.ComboBox7.ItemIndex = 0 then
      ListItem.SubItems.Add('UDP')
    else
      ListItem.SubItems.Add('TCP');
  end;

  if FParam.Edit29.Visible and FParam.CheckBox34.Checked then begin
      ListItem := ListView1.Items.Add;
      ListItem.Caption := FParam.CheckBox34.Caption;
      ListItem.SubItems.Add(FParam.Edit29.Text);
    end;

  if ListView1.Items.Count > LineCount then begin
    ListView1.Items.Add;
    LineCount := ListView1.Items.Count;
  end;

  //特殊设置
  if FParam.CheckBox23.Checked then begin
    ListItem := ListView1.Items.Add;
    ListItem.Caption := FParam.CheckBox23.Caption;
    ListItem.SubItems.Add(FParam.Edit22.Text);
  end;
end;

end.