你要想“放进去时是0.02,查询出来时0.02了”, 1、你在控制面板的区域设置有前导零 2、或者 (Fields[1] as TNumericField).displayformat := '0.00#';
难到你的那个字段不是浮点型的吗? 如果不是就用 if copy(FieldByName('FieldName').AsString ,1,1) = '.' then Result := StrToFloat('0'+FieldByName('FieldName').AsString) * 100 else Result := StrToFloat(FieldByName('FieldName').AsString) * 100 ;
可以用pos()处理,也可以用取串的方法处理,你自己定了。
if copy(String,1,1) = '.' then showmessage('ok'); else showmessage('no');
var s:string begin if s[1] = '.' then ShowMessage('第一个是点,TMD,我还要转化!!') else ShowMessage('不是点,还好点。');
True
else
Flase;
1、你在控制面板的区域设置有前导零
2、或者
(Fields[1] as TNumericField).displayformat := '0.00#';
如果不是就用
if copy(FieldByName('FieldName').AsString ,1,1) = '.' then
Result := StrToFloat('0'+FieldByName('FieldName').AsString) * 100
else
Result := StrToFloat(FieldByName('FieldName').AsString) * 100 ;
else showmessage('no');
begin
if s[1] = '.' then
ShowMessage('第一个是点,TMD,我还要转化!!')
else
ShowMessage('不是点,还好点。');
end