procedure TFrmReEducation.SGRBroadSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); var SelCont:string; begin SelectCol:=acol; SelectRow:=arow; //选中选择框在选择池中显示其内容 SelCont:=trim(SGRBroad.Cells[SelectCol,SelectRow]); lbxsel.Clear; if SelCont<>'' then begin while Length(SelCont)>1 do begin LbxSel.items.add(copy(SelCont,0,Pos(',', SelCont)-1)); Selcont:=copy(Selcont,pos(',',SelCont)+1,Length(SelCont)); end; end;
ARow: Integer; var CanSelect: Boolean);
var
SelCont:string;
begin
SelectCol:=acol;
SelectRow:=arow;
//选中选择框在选择池中显示其内容
SelCont:=trim(SGRBroad.Cells[SelectCol,SelectRow]);
lbxsel.Clear;
if SelCont<>'' then
begin
while Length(SelCont)>1 do
begin
LbxSel.items.add(copy(SelCont,0,Pos(',', SelCont)-1));
Selcont:=copy(Selcont,pos(',',SelCont)+1,Length(SelCont));
end;
end;