2,507
社区成员
发帖
与我相关
我的任务
分享ADOQUERY和DBEDIT
ADOQUERY 连接一个SQLSERVER的一个表,
SQL为SELECT ADDRESS FROM TEN ; ADDRESS为VARCHAR(50)
DBEDIT指向ADOQUERY 的ADDRESS 但DBEDIT 怎么每次最多输入最多3个字符
SQL为SELECT ADDRESS FROM TEN ; ADDRESS为VARCHAR(50)
DBEDIT指向ADOQUERY 的ADDRESS 但DBEDIT 怎么每次最多输入最多3个字符
...全文
请发表友善的回复…
发表回复
jacket008 2004-06-12
- 打赏
- 举报
要控制长度为3
maxlength=3
maxlength=3
jacket008 2004-06-12
- 打赏
- 举报
不好意思看错题目
foxdelphi 2004-06-12
- 打赏
- 举报
小弟搞錯，
可能是 maxlength<>0
可能是 maxlength<>0
foxdelphi 2004-06-12
- 打赏
- 举报
procedure TForm1.Edit1Exit(Sender: TObject);
var
strs:string;
i,j:integer;
begin
j=0
strs:=trim(edit1.text);
for i=0 to len(strs)-1
begin
if substring(strs,i,1)=(a..Z,A..Z) then
j=j+1
if j>=3 then
showmessage('不能....')
result:=false;
end;
end;
小弟想思路如上：
var
strs:string;
i,j:integer;
begin
j=0
strs:=trim(edit1.text);
for i=0 to len(strs)-1
begin
if substring(strs,i,1)=(a..Z,A..Z) then
j=j+1
if j>=3 then
showmessage('不能....')
result:=false;
end;
end;
小弟想思路如上：
jacket008 2004-06-12
- 打赏
- 举报
应该不会吧？
看一下dbedit的属性有没有搞错！
看一下dbedit的属性有没有搞错！
nb20022 2004-06-12
- 打赏
- 举报
d
