Question

在HTML中当我选中一些checkbox按钮后如何将其中的值在text或下拉框中？使用JSP制作的页面！下面图片实例。

这个其他做的，大体上就是选中设备类型的后，那个下拉框上就同时显示选中的设备类型，希望各位大侠指点
很感谢这个做法但是不是我想要的

Answer 1

序的流程，代码还可以优化，就看你自己的了。代码已经测试通过了(Windows XP + Delphi7)，把代码拷贝到你的IDE里就可以了，全部代码如下：

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
cb: TComboBox;
ck1: TCheckBox;
ck2: TCheckBox;
ck3: TCheckBox;
ck4: TCheckBox;
ck5: TCheckBox;
ck6: TCheckBox;
procedure cbChange(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private

public

end;

var
Form1: TForm1;
f1: TextFile; //这是文件变量
implementation

procedure TForm1.cbChange(Sender: TObject);//
begin
If cb.ItemIndex = 0 Then //如果选择第一项 ，则复选框1-3选中
begin
ck1.Checked := True;
ck2.Checked := True;
ck3.Checked := True;
ck4.Checked := false;
ck5.Checked := false;
ck6.Checked := false;
end;
If cb.ItemIndex = 1 Then //如果选择第二项 ，则复选框4-6选中
begin
ck1.Checked := false;
ck2.Checked := false;
ck3.Checked := false;
ck4.Checked := True;
ck5.Checked := True;
ck6.Checked := True;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
AssignFile(f1,'check.txt'); //以可写方式打开一个文件，不存在则创建，存在则覆盖

Rewrite(f1); //打开文件准备读写

//下面代码保存checkbox的状态，选中为1，未选中为0
if ck1.Checked Then Writeln(f1,'1')
else Writeln(f1,'0');

if ck2.Checked Then Writeln(f1,'1')
else Writeln(f1,'0');

if ck3.Checked Then Writeln(f1,'1')
else Writeln(f1,'0');

if ck4.Checked Then Writeln(f1,'1')
else Writeln(f1,'0');

if ck5.Checked Then Writeln(f1,'1')
else Writeln(f1,'0');

if ck6.Checked Then Writeln(f1,'1')
else Writeln(f1,'0');

CloseFile(f1); //关闭文件
end;

procedure TForm1.FormCreate(Sender: TObject);
var s1: String; //临时变量
begin
if FileExists('check.txt') Then //判断设置文件是否存在
begin
AssignFile(f1,'check.txt');

Reset(f1); //以只读方式打开文件

Readln(f1,s1); //读取第一行
ck1.Checked := Boolean(StrToInt(s1));//把第一行的内容转换为布尔值后赋值给复选框1，下同

Readln(f1,s1);
ck2.Checked := Boolean(StrToInt(s1));

Readln(f1,s1);
ck3.Checked := Boolean(StrToInt(s1));

Readln(f1,s1);
ck4.Checked := Boolean(StrToInt(s1));

Readln(f1,s1);
ck5.Checked := Boolean(StrToInt(s1));

Readln(f1,s1);
ck6.Checked := Boolean(StrToInt(s1));

CloseFile(f1); //一定记得关闭文件
end;
end;

end.