H hhjjhhjj Unregistered / Unconfirmed GUEST, unregistred user! 2006-07-04 #1 第一个路径：c:/abc/ 第二个路径：c:/abc/bbb/ 怎样得到：/bbb/ 或者 bbb/
H hhjjhhjj Unregistered / Unconfirmed GUEST, unregistred user! 2006-07-04 #3 function GetNewPath(Patha,pathb: String):String; Begin .... Result := ...; end; 我想要的： GetNewPath('c:/abc/','c:/abc/bbb/') ：＝'/bbb/' 或者 'bbb/'
function GetNewPath(Patha,pathb: String):String; Begin .... Result := ...; end; 我想要的： GetNewPath('c:/abc/','c:/abc/bbb/') ：＝'/bbb/' 或者 'bbb/'
Z zengguocai Unregistered / Unconfirmed GUEST, unregistred user! 2006-07-04 #4 result:=copy(pathb,length(patha),length(pathb));
W weiliu Unregistered / Unconfirmed GUEST, unregistred user! 2006-07-04 #7 设第一个路径为STR1，第二个为STR2，结果为STR3。 var str1,str2,str3:string; begin str1:='c:/abc/'; str2:='c:/abc/bbb/'; str3:=str2; if pos(str1,str2)=1 then begin delete(str3,1,length(str1)); end; showmessage(str3); end;
设第一个路径为STR1，第二个为STR2，结果为STR3。 var str1,str2,str3:string; begin str1:='c:/abc/'; str2:='c:/abc/bbb/'; str3:=str2; if pos(str1,str2)=1 then begin delete(str3,1,length(str1)); end; showmessage(str3); end;
H hityou Unregistered / Unconfirmed GUEST, unregistred user! 2006-07-04 #8 路径一str1 路径二str2 copy(str2,pos(str1,str2)+length(str1),length(str2))就可以了
Z zengguocai Unregistered / Unconfirmed GUEST, unregistred user! 2006-07-04 #9 pos(str1,str2) 加这个不是画蛇添足？
Y yourname_0 Unregistered / Unconfirmed GUEST, unregistred user! 2006-07-16 #12 哦，这样啊，使用StringReplace岂不是更简单？？连GetNewPath都可以省了
