È¡×Ö·û´®³¤¶È

È¡×Ö·û´®³¤¶È //È¡×Ö·û´®³¤¶È function Len(const value: string): integer; begin if Value='' then result:= 0 else result:= PInteger(Integer(Value)-4)^; end;