判断EDIT中的字符串是否为特殊字符

liuqiang_sy 发布于 2007-04-18 20:58， 928 次点击

我想判断一个edit控件中字符串的值是否为特殊字符(0-9 ,A-Z,a-z)应该怎么判断

2 回复

sgliuxiu2007-04-18 21:31

如果是输入的时候，可以这样判断:
procedure Tsfczform.edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (not (key in ['0'..'9','a'..'z','A'..'Z'])) then ****** ;
end;

anthony6342007-04-18 21:49

function CheckStr(str1: string): boolean;带小数and字符
var
I, J: integer;
begin
result := True;
J:=0;
for I := 1 to length(str1) do
begin
case str1[I] of
'0'..'9':;
'A'..'Z':;
'a'..'z':;
'.': inc(J);//有个问题是，如果一开始输入是点号就不行
else
begin
result := False;
end;
end;
end;
if (J>1) then
begin
result := False;
end;
end;