求一字符串匹配函数！(100分)

M

mywyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-25

• #1

比如：
function MyCompareStr(const str1,str2:string):bool;
如果相等就返回true
要求：str1能够支持通配符：？和 *。匹配规则和sql的select语句一样。
由于客户催的太紧，只能请各位大哥帮忙！！！

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-25

• #2

是两个都有通配符，还是只有一个有。

 

C

chshanghai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-25

• #3

自已写一个算了

 

M

mywyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-25

• #4

to jsxjd:
只有一个有
to chshanghai:
客户催的太紧，我怕来不及。还有一堆事情等着我。[]

 

L

loxtln

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-25

• #5

function MyCompareStr(str1,str2:string):boolean;
var i:integer;
begin
i:=pos('*',str1);
if i>0 then
begin
delete(str1,i,maxint);
if length(str2)>=i then
delete(str2,i,maxint);
end;

i:=pos('?',str1);
while i>0do
begin
str1:='/';
if length(str2)>=i then
str2:='/';
i:=pos('?',str1);
end;
if comparestr(str1,str2)<>0 then
result:=false else
result:=true;
end;

 

M

mywyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-25

• #6

loxtln:
非常感激!!!

 

M

mywyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-25

• #7

多人接受答案了。