各位大虾解释一下“tmpStr”,是什么东西
我没有用过,能不能注释一下啊?
begin
if key='.'
then for i:=1 to Length(tmpStr) do //???
if (tmpStr[i]='.')
then begin
Key=#0;
Exit;
end;if key='.'
then
begin
if pos('.',tmpStr)>0 then //???
key:=#0;
end;
我没有用过,能不能注释一下啊?
begin
if key='.'
then for i:=1 to Length(tmpStr) do //???
if (tmpStr[i]='.')
then begin
Key=#0;
Exit;
end;if key='.'
then
begin
if pos('.',tmpStr)>0 then //???
key:=#0;
end;
procedure Txinzengfm.Edit1KeyPress(Sender: TObject; var Key: Char);
var
tmpStr: String;
begin
if key='.'
then
begin
if pos('.',tmpStr)>0 then //???
key:=#0;
end;
if not (key in ['0','1','2','3','4','5','6','7','8','9','.',#13,#8]) then
key := #0
end;
你可以采用以下办法查看它到底是什么。
showmessage(tmpstr)
使用了很多方法都不行啊?谁可以说一下的
一:第一位不能是点
二:不能连续两个点
三:也不能用tmaskedit
四:0到9和退格键可以
五:屏蔽鼠标的右键