const
ED_STR= 'ed';
AND_STR = ' AND ';
.
.
.procedure TFormBase1.CreateAEdit(sName: string; iTime, Flag: integer);
var
edTmp: TdxEdit;
begin
edTmp := TdxEdit.Create(Self);
edTmp.Name :=sname + ED_STR+IntToStr(iTime);(如果数据库中的字段名是中文字或数据字则出错提示'**is not a valid component name'请问高手要如可解决) edTmp.StyleController := dxMyStyle;
edTmp.Parent := tpSearch;
edTmp.tag := iTime ;
edTmp.Height := 22;
edTmp.Top := tpSearch.Top+2;//tpSearch.Height - edTmp.Height-1;// * (iTime-1)+2 ;
edTmp.Text := '';
edTmp.OnKeyDown := edEditKeyDown;
edTmp.OnChange := EditChange;
edTmp.Width := 0;
lstEdits.Add(edTmp);
end;
ED_STR= 'ed';
AND_STR = ' AND ';
.
.
.procedure TFormBase1.CreateAEdit(sName: string; iTime, Flag: integer);
var
edTmp: TdxEdit;
begin
edTmp := TdxEdit.Create(Self);
edTmp.Name :=sname + ED_STR+IntToStr(iTime);(如果数据库中的字段名是中文字或数据字则出错提示'**is not a valid component name'请问高手要如可解决) edTmp.StyleController := dxMyStyle;
edTmp.Parent := tpSearch;
edTmp.tag := iTime ;
edTmp.Height := 22;
edTmp.Top := tpSearch.Top+2;//tpSearch.Height - edTmp.Height-1;// * (iTime-1)+2 ;
edTmp.Text := '';
edTmp.OnKeyDown := edEditKeyDown;
edTmp.OnChange := EditChange;
edTmp.Width := 0;
lstEdits.Add(edTmp);
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货