M
microbe
Unregistered / Unconfirmed
GUEST, unregistred user!
为什么要在某些属性名后加".aSstring"?
如程序段:
procedure tform1.dbgrid1db1click(sender: tobject );
var mystring:string;
begin
mystring: =table1. fieldbyname('员工姓名').asstring;
showmessage('你双击了员工'+mystring+'所在的单元格');
end ;
如程序段:
procedure tform1.dbgrid1db1click(sender: tobject );
var mystring:string;
begin
mystring: =table1. fieldbyname('员工姓名').asstring;
showmessage('你双击了员工'+mystring+'所在的单元格');
end ;