好象是访问违反地址!这各情况怎么处理呀!!
运行以下程序出错:
procedure TFrmDinCard.DBGrid1CellClick(Column: TColumn);
begin
if DBGrid1.SelectedRows=nil then exit ;
EDINCIC.Text:=DBGrid1.Fields[0].AsString;
EDINCZIC.Text:=DBGrid1.Fields[1].AsString;
ENDINC.Text:=DBGrid1.Fields[2].AsString;
ENDINIden.Text:=DBGrid1.Fields[3].AsString;
ENDINName.Text:=DBGrid1.Fields[4].AsString;
if DBGrid1.Fields[5].AsBoolean=true then CHBNDINYN.Checked:=true else CHBNDINYN.Checked:=false;
MENDINTime.Text:=DBGrid1.Fields[6].AsString;
end;
运行以下程序出错:
procedure TFrmDinCard.DBGrid1CellClick(Column: TColumn);
begin
if DBGrid1.SelectedRows=nil then exit ;
EDINCIC.Text:=DBGrid1.Fields[0].AsString;
EDINCZIC.Text:=DBGrid1.Fields[1].AsString;
ENDINC.Text:=DBGrid1.Fields[2].AsString;
ENDINIden.Text:=DBGrid1.Fields[3].AsString;
ENDINName.Text:=DBGrid1.Fields[4].AsString;
if DBGrid1.Fields[5].AsBoolean=true then CHBNDINYN.Checked:=true else CHBNDINYN.Checked:=false;
MENDINTime.Text:=DBGrid1.Fields[6].AsString;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货