盒子论坛 v2.1

第2个简单
procedure TForm1.edt1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
showmessage('ok');
end;
第一个你说的是已经输入的还是正在输入的字符?
----------------------------------------------
-大家互相学习交流一起进步啦...^_^

作者：

12521052 (混世生)	★☆☆☆☆	-
	盒子活跃会员

2004/3/3 23:36:29

2楼：

procedure TForm1.edt1KeyPress(Sender: TObject; var Key: Char);
begin
  case key of
  '0' .. '9', '.':
    //是数字
  #13:
    //是回车
  else:
    //是其它的
  end;  //case key
end;
----------------------------------------------
——混世生

作者：

zjb4627 (邦邦)	★☆☆☆☆	-
	盒子活跃会员

2004/3/4 0:14:53

3楼：

忠心地谢谢大家了！
对于已经输入的一串字符，怎么判断其中含有除0~9及‘.’以外的字符呢？
----------------------------------------------
-

作者：

iamdream (银河恒久远，梦想无止境！)	★☆☆☆☆	-
	大贡献会员

2004/3/4 8:35:40

4楼：

你可用以下方法：
function IsFloat(const Value: String): Boolean;
begin
  try
    StrToFloat(Value);
    Result := True;
  except
    Result := False;
  End;
end;
----------------------------------------------
-广袤璀璨的银河,永无止境的梦想(梦无止境游银河) 博客挂了……

作者：

skertone (奇奇怪)	★☆☆☆☆	-
	盒子活跃会员

2004/3/4 8:45:25

4楼：

type
  TMyCharSet = set of Char;

const
  InputCharSet: TMyCharSet = ['0'..'9','.'];
var
  ii: Integer;
begin
  for ii := Low(InputStr) to High(InputStr) do
  if not (InputStr[ii] in InputCharSet) then
  begin
    //do something.......
    Break;
  end;
end;'
----------------------------------------------

作者：

power_source (power)	★☆☆☆☆	-
	盒子活跃会员

2004/3/4 9:00:30

5楼：

在一断字符串中取得数字
var
  I: Integer;
begin
  for I := Length(S) downto 1 do
    if S[I] in ['0'..'9'] then Delete(S, I, 1);
end;
----------------------------------------------
我真的不会！

信息

登陆以后才能回复