峻祁连,请问
创建线时,style设置时要注意什么?
我想把线的样式存到数据库里
然后再从数据库了建出来,可是当我一直放大时出现error float point 操作错误
具体代码请看
存入数据库
I_Sty:Variant
query.SQL.Add('LineColor='+inttostr(I_Sty.LineColor)+',');
if I_sty.LineInterleaved then
query.SQL.Add('LineInterleaved='+''''+'1'+''''+',')
else
query.SQL.Add('LineInterleaved='+''''+'0'+''''+',');
query.SQL.Add('LineStyle='+inttostr(I_Sty.LineStyle)+',');
query.SQL.Add('LineWidth='+inttostr(I_Sty.LineWidth)+',');
query.SQL.Add('LineWidthUnit='+inttostr(I_Sty.LineWidthUnit)+',');
读出创建时
V_sty:CMapxStyle;
v_data:Variant;
V_Sty:=CoStyle.Create;
V_Data:=V_Sty;
V_Data.LineStyle:=query.fieldByName('LineStyle').AsInteger;
V_Data.LineColor:=query.fieldByName('LineColor').AsInteger;
V_Data.LineWidth:=query.fieldByName('LineWidth').AsInteger;
V_Data.LineWidthUnit:=query.fieldByName('LineWidthUnit').AsInteger;
V_Data.LineInterleaved:=query.fieldByName('LineInterleaved').AsInteger;