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

Posted 2023-03-18

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');

参考技术A 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;

请问OPENCV的函数cvCanny边缘检测可以只检测水平方向或垂直方向吗 ？？？ 像cvSobel一样只检测一个方向.

请问OPENCV的函数cvCanny边缘检测可以只检测水平方向或垂直方向吗 ？？？ 像cvSobel一样只检测一个方向.

参考技术A canny是各个方向都有的，你可以自己测试一下，我看我的结果都是八方向的。
Sobel只能检测一个方向是，kernel限制，你也可以直接编写，两个kernel混合的模版来卷积。
结果就是各个方向的啦~
其实，canny也是基于sobel的，只不过他有一个细化体系，能用强边缘和弱边缘来规范。
具体的你看三十分钟维基百科就知道啦~追问

谢谢你！

追答

还追问嘛，采纳了呗

参考技术B 可以通过修改cvCanny源程序 , 将其中的水平和竖直两个方向的Sobel算子，改成一个方向的.
相当于只检测一个方向的边缘.追问

我会尝试的，谢谢。

本回答被提问者采纳 参考技术C 你看函数的参数列表，里面并没有选择方向的参数！追问

没有，呵呵，和cvSobel不一样。。