求能得到 *.pas=hello.pas 的函數！(100分)

J

jiichen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-15

• #1

求能得到 *.pas=hello.pas 此結果的的字串函數！

 

郭

郭玉梁

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-15

• #2

啥意思，看不懂，我得中文太差了。

 

E

eyes4

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-15

• #3

如果仅要求*.pas形式的话，如下：
function XXX(s1,s2:string):Boolean;
var
i:integer;
s:string;
begin
i:=pos(s1,s2);
if i=length(S2)-3 then Result:=true
else Result:=False;
end;
调用：
x:=xxx('.pas','hello.pas');

 

J

jiichen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-15

• #4

抱歉！是我的表達能力太差！請見諒！

我想得到的函數結果是：
a 字串 'aaaa.htm.pas'
與 b 字串 '*.pas'
與 c 字串 'aaaa.pas.htm'
a=b AND b<>c ，就像是
使用 FindFirst('*.pas',faAnyFile,SearchRec)
會找出 aaaa.htm.pas 而不會找出 aaaa.pas.htm
一樣。

 

E

eyes4

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-15

• #5

一样的：
function XXX(s1,s2:string):Boolean;
var
i:integer;
s:string;
begin
s1:=copy(pos(*,S1)+1,length(S1));
i:=pos(s1,s2);
if i=length(S2)-3 then Result:=true
else Result:=False;
end;
调用：
x:=xxx('*.pas','hello.pas');

 

J

jiichen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-15

• #6

雖然可行，但不夠完整，一遇見 *.* 或 *htm* 便不行了，有無完整的方案，
就像使用 FindFirst 一樣，可使用 *.* ab?de.*
等格式。

function TForm1.XXX(s1,s2:string):Boolean;
var
i:integer;
s:string;
begin
s1:=copy(s1,pos('*',S1)+1,length(S1));
i:=pos(s1,s2);
if i=length(S2)-3 then Result:=true
else Result:=False;
end;

 

U

unreal

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-18

• #7

http://www.delphibbs.com/delphibbs/DispQ.asp?LID=397638

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-10

• #8

jiichen:如果你还要继续讨论请定期提前你的帖子，如果不想继续讨论请结束帖子。

 

J

jiichen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-10

• #9

多人接受答案了。