procedure TForm1.DBGrid1DblClick(Sender: TObject);
var
item_xh:string;
begin
item_xh:=DBGrid1.SelectedField.DataSet.FieldValues['item_xh'];
item_xh:=item_xh+'.htm';
showmessage(item_xh);
shellexecute(0,'Open',item_xh,'','',SW_SHOW);
end;
//提示String和PAnsiString类型不匹配,如果要实现这个功能,应如何做??