怎么让edit中text格式为０．００

Question

１．显示是0.00
２．　修改时只有数字才输入
３．小数电要固定（小数点后只能输入两位数据）

Answer 1

取str,找到小数点位置,保留后面两位字符,其余截断.delphi没用过,没法给你具体代码:)

Answer 2

formatfloat('0.00',strtofloat(edit1.text));

Answer 3

edit1.text:=floattostr(formatfloat('0.00',strtofloat(edit1.text)));
嘻嘻

Answer 4

在additional页 选maskedit
在maskedit的editmask属性中
输入
!9\.99;1;0

Answer 5

还少说了一点，
在character for blank 中填0

Answer 6

Dim str1 As String
Dim s As String
Dim dotpos As Long
s = "."
str1 = Text1.Text
dotpos = InStr(1, str1, s, vbBinaryCompare)
If dotpos > 0 Then
    str1 = Left(str1, dotpos + 2)
    MsgBox str1
End If手头只有VB,参考下:)

Answer 7

如果要实现向VFP那样的EDIT输入，用第三方控件吧保证好用

Answer 8

edit1.text:=format('%12.2',[strtofloat(edit1.text)]);