Question

求delphi一个检测string字符串函数，检测string中没有特殊字符 只有数字跟字母 代码怎么写

Answer 1

function teststr(s:string):boolean;
var
	n,i:integer;
	t:boolean;
begin
	n:=length(s);
	t:=true;
	for i:=1 to n do 
		if pos(s[i],'0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz')=0 then
		begin t:=false; break; end; 
	teststr:=t;
	{返回true表示全由数字字母组成，返回false则否}
end;

begin
	writeln(teststr('1432424fhgjhgj'));
	writeln(teststr('1432424, gfgfhg;fhgjhgj'));
end.

追问

在问一下怎么调用呢。。

追答

var
yesorno:boolean;
..............

yesorno:=teststr('twqutuwqfgsfh43465476');

Answer 2

var
s: AnsiString;
I: Integer;
begin
for I := 1 to Length(s) do
begin
if not (s[I] in ['0'..'9', 'a'..'z', 'A'..'Z']) then
begin
//有特殊字符
Exit;
end;
end;