if ClientQ[TEdit(Components[i]).Name].DataType = ftInteger then
TEdit(Components[i]).Text := IntToStr(ClientQ[TEdit(Components[i]).Name])
编译时没错,但一执行到这句话时就出错,错误提示为:
Variant does not reference an automation object
...全文
236打赏收藏
请帮我看看有什么错????????
if ClientQ[TEdit(Components[i]).Name].DataType = ftInteger then TEdit(Components[i]).Text := IntToStr(ClientQ[TEdit(Components[i]).Name]) 编译时没错,但一执行到这句话时就出错,错误提示为: Variant does not reference an automation object