各位大虾解释一下“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;

解决方案 »

  1.   

    找找其他代码,tmpstr应该是一个变量。
      

  2.   

    我这样也不行啊?
    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;
      

  3.   

    tmpstr明显是个字符串变量。
    你可以采用以下办法查看它到底是什么。
    showmessage(tmpstr)
      

  4.   

    把你的光标放在tmpstr上,呆一会看看出来的提示,就会知道了.他可能是一个字符串变量按住ctrl再用鼠标点击这个变量.它会自动带你到变量声明的地方.
      

  5.   

    我是想控制一个Edit框不能输入两个连续的点(.)如:8.5不能8..5;
    使用了很多方法都不行啊?谁可以说一下的
      

  6.   

    那如果在StringGrid的格子里写Float型的数据就需要控制了呀?
    一:第一位不能是点
    二:不能连续两个点
    三:也不能用tmaskedit
    四:0到9和退格键可以
    五:屏蔽鼠标的右键