请问怎样将String转换为TAlignment?
Grid1.columns[0].TAlignment:=query1.fieldbyname('align').asstring;
而不是直接写Grid1.columns[0].TAlignment:=caCenter

解决方案 »

  1.   

    你那串里存的是什么?
    如果是全称的话,可以用typInfo单元的GetEnumValue函数。
    如果是整数的话,直接TAlignment(IntToStr(UrStr))
      

  2.   

    Grid1.columns[0].TAlignment:=TAlignment(GetEnumValue(TypeInfo(TAlignment),'CaCenter'));
      

  3.   

    楼上的函数可以。uses TypInfo;
    Grid1.columns[0].TAlignment:=TAlignment(GetEnumValue(TypeInfo(TAlignment),query1.fieldbyname('align').asstring));Kevin_Lmx(繁华阅尽) 怎么老跟我抢?才20分你也跑进来干吗?打出去!!!