难题：关于格式化字符串并加以判断问题~~(50分)

随风飘零叶 · 2002-07-20

我的代码中需要进行约束判断。
比如对某个EDIT输入框中输入的字符长度进行限制。
而我的限制代码是保留在数据库中的，读出来是字符串格式。
例：限制字符长度大于等于10小于20的代码字符串是value1>=10 and value1<20
这个字符串怎么能够对EDIT1.TEXT输入的长度进行检查呢？
var
Lengthstring:string;
begin

Lengthstring:=...[值为value1>=10 and value1<20]
怎么格式化value1为length(edit1.text)
从而来判断EDIT1输入的字符长度是不是满足Lengthstring规定的长度呢？

windbell · 2002-07-20

将value1>=10 and value1<20中的value1改为%s或者将value1>=10 and value1<20中
的value1临时替换为%s后使用然后：
Lengthstring:=format('%s>=10 and %s<20',['length(edit1.text)','length(edit1.text)' ]）;

iie · 2002-07-20

如果只是上下限比较，数据库里存储1解析出0/20就简单可行，
如果是复杂的表达式就需要进行逆波兰表达式解析

随风飘零叶 · 2002-07-21

winbell兄的办法是最好的设想，但是最终LENGTHSTRING只是字符串
怎么进行布尔判断呢
Lengthstring:=format('%s>=10 and %s<20',['length(edit1.text)','length(edit1.text)' ]）;
实际中怎么判断格式化完毕的LENGTHSTRING字符串值为真为假呢？

娃娃 · 2002-07-21

我觉得如果你所要求的条件就像你题目中所说
的那么简单，只是要一个上下限的话。可以这
样试试：
1、把你的条件限制在库中存为一个最大值一
个最小值。
2、在程序中动态读出最大值和最小值，把最
大值赋给Edit的MaxLength。
3、然后判断Length(Edit.text)是不是小于
最小值应该就可以了吗。

随风飘零叶 · 2002-07-21

问题是我的条件不仅仅是最大值最小值
如果是身份证号的时候限制就是value1=15 or value1=18
如果有别的其他需要的话，可能条件变成了value1=5 or value1=10 or value1>20 or ...
这样的话，固定是没有办法办到的~！
这是一个难题吧！

windbell · 2002-07-22

Lengthstring中表达式确定之后，就想办法求值就可以了。可以到网上寻找一些表达式求值
的控件，自己有时间也可以编写一个求值函数以后就一劳永逸了

随风飘零叶 · 2002-07-22

还有谁有高明的办法吗？

随风飘零叶 · 2002-07-28

娃娃 · 2002-08-02

你可以做一个标志字段吗，比如让用户选择是输入
15位的身份证号还是18位的，或是其它的，然后根
据选择来锁定输入，不就行了。不用考虑的那么复杂！

难题：关于格式化字符串并加以判断问题~~(50分)

随风飘零叶

Unregistered / Unconfirmed

windbell

Unregistered / Unconfirmed

iie

Unregistered / Unconfirmed

随风飘零叶

Unregistered / Unconfirmed

娃娃

Unregistered / Unconfirmed

随风飘零叶

Unregistered / Unconfirmed

windbell

Unregistered / Unconfirmed

随风飘零叶

Unregistered / Unconfirmed

随风飘零叶

Unregistered / Unconfirmed

娃娃

Unregistered / Unconfirmed

Similar threads